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PICK POOLS SYSTEM AND METHOD 
USING PACKET -SWITCHED NETWORK 



This invention relates to a system and method for 
implementing sports pools on a packet -switched network 
such as the internet. More particularly, this invention 
relates to a system and method for providing 
users/players with the ability to form sports pick pools 
for non-monetary gambling simulation and/or entertainment 
via the internet . 



BACKGROUND OF THE INVENTION 
Gambling on sports has been known for years. For 
example, many casinos and other facilities in Las Vegas, 
Nevada, take bets on football games, basketball games, 
baseball games, hockey games, and the like. In modern 
years, "fantasy football" leagues have also been set up, 
where each participants picks select players, with the 
winner being determined as a function of which 
participant's players perform best in a given season. 

However, there are fundamental problems with the two 
aforesaid sports gambling/entertainment systems. First, 
gambling is restricted to certain geographical areas of 
the country, such as the State of Nevada. Additionally, 



gambling may be addictive and is not desired by all 
sports fans. With regard to fantasy football leagues, 
Nevada-style sports gambling is not simulated by them, 
they are burdensome and time consuming to put together, 
and often suffer due to their fragmented design. 

In view of the above, there exists a need in the art 
to create a system and/or method for enabling users to 
set up or join sports pick pools via a packet -switched 
data network such as the internet. This will enable 
users to enjoy a fun and legal alternative to sports 
gambling, while still realizing the entertainment value 
of given sports. 

This invention will now be described with respect to 
certain embodiments thereof, accompanied by certain 
illustrations . 

SUMMARY OF THE INVENTION 
Generally speaking, this invention fulfills the 
above described needs in the art by providing a method of 
setting up pools and wagering points on sporting events, 
the method comprising the steps of: 
providing at least one server; 



providing an asynchronous packet switched digital 
data network, the digital data network being in 
communication with the server; 

utilizing a plurality of computers which are in 
communication with the packet switched digital data 
network; 

associating each of the plurality of computers with 
a user; 

a user accessing the server via the asynchronous 
packet switched digital data network, via the user's 
computer; 

the server assigning the user to a given pool so 
that the pool includes a plurality of users designated as 
being associated therewith; 

the server causing a pick screen to be displayed to 
the user on a display of the user's computer; 

the pick screen enabling the user to browse through 
a plurality of different sporting events and review odds 
and over /under lines on the different sporting events; 

the user utilizing the pick screen in picking a 
sporting event and wager a number of points on the 
sporting event by way of at least one of a straight pick, 
a tease pick, a parlay pick and a reverse pick (in 
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certain embodiments, each of these four types of picks 
may include up to three different options - over, under, 
and/or spread) ; 

the user submitting the pick made in said picking 
step to the server; 

the server causing the results of the pick to be 
displayed to the user via the packet switched digital 
data network at a point in time after the sporting event 
of said picking step has been completed; and 

the server causing results of picks made by other 
users in the pool to be displayed to the user via the 
packet switched digital data network at a point in time 
after the sporting event of said picking step has been 
completed. 

This invention will now be described with respect to 
certain embodiments thereof, along with reference to the 
accompanying illustrations. 

TM THE DRAWINGS 
Figure 1 is a block diagram of an embodiment of this 
invention. 

Figure 2 is a flow chart illustrating how a 
particular embodiment of this invention is implemented. 



Figure 3 is an exemplary "home page" screen shown to 
a user on the user's display screen according to an 
embodiment of this invention. 

Figure 4 is an exemplary "pick form" screen shown to 
5 the user via the user's display screen according to an 
embodiment of this invention. 

Figure 5 is an exemplary review pick form screen 
shown to the user, to allow the user to review his/her 
pick made in the Fig. 4 screen and potentially make 
10 another pick, according to an embodiment of this 
invention. 

Figure 6 is another exemplary pick form screen which 
may be shown to the user according to an embodiment of 
this invention. 

is Figure 7 is an exemplary review pick form screen 

shown to the user on the user's display screen according 
to an embodiment of this invention, this screen being 
similar to the Fig. 5 screen, except that the Fig. 7 
screen shows another pick being made/processed. 

20 Figure 8 is a review all picks screen shown to the 

user on the user's PC screen according to an embodiment 
of this invention, this screen presenting to the user two 
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options, namely canceling all the shown picks or 
submitting the picks for final. 

Figure 9 is an end page screen shown to a user on 
the user's PC screen according to an embodiment of this 
invention, where all picks were successfully submitted to 
the system. It is noted that Figures 3-9 illustrate how 
a user can make two picks according to one embodiment of 
this invention. 

DETAILED DESCRIPTION OF 
CERTAIN EMBODIMENTS OF THIS INVENTION 

Referring now more particularly to the accompanying 
drawings in which like reference numerals indicate like 
parts throughout the several figures/views. 

Certain embodiments of this pick pool invention were 
designed to create a fun and legal alternative to "Las 
Vegas style" sports gambling. The concept of a pick pool 
is to use a data network (e.g. digital packet -switched 
data network such as the internet) to provide users with 
a non-monetary and/or intangible entertainment value of 
sports gambling. By placing users in "pools," the 
participants' or users' entertainment experience is 



enhanced through the spirit of competition with other 
users in the same pool . 

A system and corresponding method utilizing a 
packet -switched digital data network allows users to make 
point wagers on football games (or other sports games 
such as basketball games) that are similar or identical 
in nature (except for no money is bet) to money wagers 
which may be made in Nevada sports gambling industries. 
Points won or lost in a pick pool serve only as a means 
of measuring the performance of participants or users 
within a particular pool. For example, at the end of a 
week, or at the end of a football season, the 
participants in a given pool may see who "won" by seeing 
who had the most points accumulated. 

Many different pools may be formed, with each pool 
including a plurality of different participants or users. 
Participants determine who is performing the best or 
worst (i.e. winning or losing) in a given pool by the 
number of points accumulated by a particular participant 
at the end of the week, season, or other predetermined 
period of time. 

With regard to internet embodiments of this 
invention, users or participants may sign up to be part 
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of a particular sports pick pool as follows. A 
particular user may sign up as part of a large group 
(e.g. eight or more people) which places the user in a 
private pool along with friends and associates, or 
alternatively the user may sign up as an individual or in 
a small group (from one to seven people) and be randomly 
placed in a pool with other individuals or small groups. 
Whether a user signs up as part of a large predetermined 
group, or individually or as part of a small group, only 
one person (i.e. the group leader) has to complete the 
sign-up process for a group of users. This is efficient. 
The sign-up process in particular embodiments is as 
follows: first, the user logs onto the internet and 
travels or proceeds to a particular website (e.g. 
www.insideodds.com). The user then clicks on the "sign- 
up" button or icon (e.g. see Fig. 3, reference numeral 
83). The user (i.e. group leader) fills in the desired 
user names and passwords for each person in the group for 
which the leader is signing up. The user then fills -in 
the background information for the u group leader," 
including the leader's name, address, e-mail, credit card 
number, etc. The group leader is responsible for paying 
t he fee for the service in certain embodiments. Finally, 



the group leader completes a payment or credit card form 
to complete the signing-up process for either the group 
leader as an individual or for a group which he/she is 
representing. 

According to certain embodiments of this invention, 
once payment has been received for a particular group, 
that group's user name(s) and password(s) will be 
activated by a server. To use the service, the user goes 
to the applicable website and clicks on the "members 
only" button or icon (e.g. see Fig. 3, reference numeral 
81) and enters his/her user name and password. Once in 
the "members" area of the website, a user will have three 
basic options: (i) make at least one pick(s) for the 
week, (ii) view picks made your pool, or (iii) view the 
results of your pool. 

In the first option (i.e. make picks for this week), 
the user follows a link at the website to reach the "pick 
form" [see Fig. 4] which is a combination of drop down 
boxes (e.g. 85 in Fig. 4) and toggle options that allows 
the user to make picks on pro or college football (or 
other sports such as basketball) games. The types of 
picks available to users are identical or similar to the 
types of monetary wages typically in sports gambling, 



i.e. spreads, overs, unders, teases, parlays, and 
reverses. In addition to making a pick the user must 
associate a point wager (e.g. see box 86 in Fig. 4 where 
the user inputs the points wager) with the pick. In 
5 football embodiments, each weekly NFL and NCAA match-up 
is captured on the "pick form" with each game's 
respective Las Vegas line (e.g. see the line of +2.0/36.5 
shown in box 85 in Fig. 4) . After a user submits a pick 
by selecting a predetermined area on the pick form (e.g. 
10 area 87 in Fig. 4), the user is given the opportunity to 
review (e.g. see Fig. 5) that pick for its accuracy. 
User's then have the choice, as shown in Fig. 5, to (i) 
edit the pick by selecting box or area 92, (ii) make 
another pick by selecting area 94 in Fig. 5, or (iii) 
is finish making picks by selecting area 96 in Fig. 5. Once 
the user is satisfied that the desired pick or picks have 
been made, the user clicks the "finished making picks" 
button or icon 96. 

The user, via a screen such as that of Figure 8, is 
20 then given one last chance to review all the picks that 
thus far were made. If the user is satisfied, then the 
user clicks on the "submit" button (area 102 in Fig. 8) 
which is the user's final submission. The user also has 

11 



IMP' 



the option to cancel all the picks and restart the 
process if so desired by selecting button or area 104 on 
the Fig. 8 form. 

Users may log onto the website and make picks as 
many times during the week as they desire. In certain 
embodiments, the system will not accept picks under any, 
all, or any combination of the following conditions: (a) 
picks pertaining to games that have already started will 
not be accepted/validated, (b) picks not conforming to 
the same restrictions applied to the like name wagers in 
Nevada sports gambling will not be accepted/validated, 
(c) picks in excess of twenty-five college or twenty-five 
pro picks by a single user will not be 

accepted/validated, and (d) picks that are duplicated by 
a user will not be accepted/validated by the programming. 

With regard to the second option (view picks made in 
your pool) , the user may view what his/her competing pool 
members have selected as their picks. The system in 
certain embodiments only allows competing users to view 
other user's picks when those picks pertain to games 
either in progress or completed. However in alternative 
embodiments of this invention, a user may view picks of 
others in his/her pool relating to games which have not 
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yet started. In certain embodiments, only picks from 
others in the same pool of a given user may be viewed and 
analyzed. However, in certain alternative embodiments, 
the server may allow the user to view the picks (and the 
results of) of users who are assigned to other pools. 

With regard to option number 3 (view the results of 
your pool), at a predetermined point in time (e.g. after 
each week's Monday night NFL game), the system via the 
server 11 tallies the results of all picks which were 
made for a predetermined number of games (e.g. NFL games 
which were played that week, or basketball games played 
in a single day or in the previous week) in the 
respective pools. A "results page" shows both a current 
week's performance and a performance year-to-date for 
each pool member. Results track the number of picks hit 
or missed and the corresponding point value won or lost 
(points values may be assigned as will be discussed 
below) by each member of a pool. In order to promote 
privacy, a given user can only access a results page for 
the pool(s) in which that user is a member. However, in 
alternative embodiments, a user may access and review 
results of picks of users in other pools. In still 
further embodiments, server 11 may determine from all of 
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the users from all of the pools which user won the most 
points in a given period, and award a grand prize to such 
a user. It is noted that in certain embodiments, the 
server limits users to a given number of points per pick, 
and/or per predetermined time period. 

Point value calculations mirror, simulate, or are 
similar to the calculations used to determine monetary 
winnings and losses associated with like named wagers in 
Nevada sports gambling. In certain embodiments, the odds 
for sports games may be automatically downloaded by 
server 11 from a remote source via the internet, such as 
from a Nevada odds source, in order to keep the odds 
updated on a continual basis. In other embodiments, a 
controller with a given password may access server 11 and 
manually insert or program into the server particular 
odds on football or basketball games. 

Accordingly, pick pools embodiments of this 
invention use a packet -switched digital data network 
(e.g. the internet) to create a competition that 
simulates in many respects (in some cases all gambling 
respects) , already popular and established Nevada sports 
gambling/gaming systems. However, in contrast to prior 
art gaming, certain embodiments of this invention create 
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a competition among users via a "pool" concept, eliminate 
financial risks and rewards associated with wagering on 
athletic events in certain embodiments, utilize a digital 
packet -switched data network in certain embodiments, and 
overall provide a much needed efficient and simple system 
for use by sports fans or followers. 

Referring to Figure 1, according to certain 
embodiments of this invention different users each may 
have his/her own personal computer (PC) or the like 1, 3, 
and 5. While PCs are the preferred way of users accessing 
server 11 via digital data communications network 7, it 
is also possible for the different suer to access server 
11 via the network by using telephones instead of Pes, 
with pick information being inputted to the system via 
DTMF tones or voice input and corresponding voice 
recognition software at the server. 

Personal computers 1, 3, and 5 are in communication 
with packet -switched digital data network 7 via 
communication links 9 in certain embodiments of this 
invention. Communication links 9 may be fiber optic 
cable, telephone lines, wireless infrared or microwave 
communication channels, radio frequency wireless 
channels, or any other conventional link. Links 9 enable 
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users 1, 3, and 5 to access digital data network 7 and 
thus server 11 via PCs, telephones, or the like. Server 
11 houses access databases which include database tables, 
and also stores software programming code (set forth 
below) and webpages which may be viewed by users 1, 3, 
and 5. Thus, users 1, 3, and 5 may use their illustrated 
personal computers and a corresponding modem to connect 
to network 7. Web browsing software is used to allow the 
users to interface with server 11. 

Digital data network 7 (e.g. the internet) is 
asynchronous in design and utilizes no centralized 
control. Network 7 may, in certain embodiments, combine 
the advantages of existing local telephone networks 9 to 
enable cost effective and efficient communication between 
the personal computers and server 11. In certain 
embodiments, server 11 may correspond to or be connected 
to an existing communication link 9 (telephone line) by 
way of a private branch exchange (PBX) so that a 
multiplicity of potential users can access server 11 
simultaneously or in proximity with one another. 
Alternatively, a channel service unit may be used instead 
of a PBX to permit communication between multiple users 
and server 11 at the same time. Still further, a 
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conventional Tl link 9 may be interposed between server 
11 and network 7. Server 11 includes bus or busses which 
interconnect at least one memory, a central processing 
unit (processor) , and an interface for enabling network 7 
and server 11 to communicate with one another. A network 
interface such as an ethernet or FDD I network access card 
may be used in certain embodiments of this invention. 
Multiple network adapter cards may be used when server 11 
serves many lines, the number of access cards required 
being a function of the network band width. 

In certain embodiments, server 11 may be a Dell 
Power Edge 4400 server, with a Pentium II processor, 266 
MHz, 128 MG RAM, 4GB hard drive, tape backup, and 
redundant power supply. However, it will be recognized 
that other types and models of servers may instead be 
used as server 11. 

Packetized data to be sent over packet switching 
digital data network 7 may be formatted by way of 
conventional TCP/UDP/IP based protocols. Network 7 may 
be a collection of thousands of computer networks, tens 
of thousands of computers, and many users who share a 
compatible means for interacting with one another to 
exchange digital data. Network 7 is composed of many 
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network providers interconnected via routers. One method 
for transferring files on network 7 is known as the file 
transfer protocol (FTP). Personal computers 1, 3, and 5 
typically access network 7 via interface cards such as 
ethernet and FDD I , or may also do so indirectly by way of 
data modems. Packet -switching in network 7 is a way in 
which different network segments can share a common 
transmission media. Rather than send a large block of 
data over a "dedicated" line directly to the destination 
computer, a packet -switching network breaks the data into 
small chunks, each chunk being sent along a common 
transmission line in a "packet" that also contains source 
and destination information. This allows many packets to 
flow through the same network, all reaching their 
appropriate destination. Dedicated network components 
called packet -switching nodes within network 7 route 
these packets from source to destination, using the 
information contained in the packet itself. After all 
packets from a particular transmission of data from a 
particular PC (e.g. 3) reach a destination at server 11, 
for example, or vice versa, the source and destination 
information is removed and the packets are reassembled 
into their original data. In this way, packets from any 
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number of computers can share the same network 7. It is 
noted that server 11 is a bidirectional communicating 
device, in that it receives communications from the users 
via network 7 , and can also send data (e.g. display 
screens and/or prompts) to the users via network 7. 

In certain embodiments of this invention, it is 
possible for certain users (e.g. user 5 in fig. 1) to 
have another link 10 to server 11. Link 10 may be a 
telephone line, fiber optic cable, Tl trunk, or wireless 
radio frequency or microwave link. In such a mannner, 
for example, the user from 5 may send data directly to 
server 11 via link 10, and the server may send screens 
back to the user via network 7. This resulting in faster 
response time in certain embodiments, and also for more 
privacy. Alternatively, the server 11 may send screens 
and/or prompts directly to user 5 via link 10, and the 
user may send picks, requests, and the like to the server 
via network 7. It is of course also possible for other 
users to have direct links 10 with server 7, although all 
are preferably still in communication with server 11 via 
asynchronous data communication network 7. 

Figure 2 is a flow chart of how a particular 
embodiment of this invention is implemented. In step 13 
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(i.e. the "start" step), a user from a particular 
personal computer or the like 1, 3, or 5, via internet 7, 
accesses a given website in communication with server 11. 
Server 11 causes a home page and sign- up information to 
be displayed to the user via the display screen on the 
user's PC (e.g see Fig. 3). On this screen (Fig. 3), a 
"members area" icon 81 is shown to the user on the user's 
display screen in step 13. If the user wishes to "sign- 
up," and is not already a member, then the user selects 
area 83 in Fig. 3 and inputs desired user name(s) and/or 
password (s) in step 15 when prompted by server 11 to do 
so. This information may be input either from a keyboard 
at the user's PC, by way of DTMF from a phone, or by way 
of voice recognition software which may be employed or 
utilized by the user's computer and/or server 11. Server 
11 checks the entered user name(s) and password (s) at 
step 17. If the server detects that the user name and/or 
password is invalid, then the system proceeds to step 19 
which presents a screen to the user enabling the user to 
make corrections and informs the user that the user name 
and/or password was invalid. However, if in step 17 the 
server detects that the user name and password (s) are 
valid, then the server proceeds to step 21 where the user 
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via his PC and corresponding screen completes credit card 
information and forwards same to server 11. Then, at 
step 23 server 11 verifies the payment information by any 
standard method such as checking with the credit card 
company identified by the user regarding that particular 
credit card. After the payment information has been 
verified, the server proceeds to step 25 and displays 
payment information to the user. At step 25, the user 
has the ability to reject the proposed payment 
information. If the client wishes to accept the proposed 
payment information, then the server returns to step 23 
and then goes on to step 2 7 where payment is accepted and 
the subscriber is added to the user profile of a 
particular pool and the user name and password are 
activated. Thus, at step 29 the particular user or group 
of users has/have become a member in a particular "pool" 
of users. 

Still referring to Figure 2, after a user becomes a 
member, when the user accesses the website in step 13, he 
can click on the "members" area icon 81 as shown in Fig. 
3 and proceed into the system at step 31. As discussed 
above, once into the system via step 31 the user has 
three options. 



When the user decides to choose the first option, to 
make at least one pick, the server in step 33 accesses 
game data input from a memory (e.g. regarding all stored 
games that may be wager- simulated on) in the server and 
also accesses game access table from a memory in the 
server. Then, in step 35 the server generates a pick 
form (e.g. see Fig. 4) which is dynamically generated 
from data in the game access table, this form being 
portrayed to the user on his or her personal computer 
screen as shown in Fig. 4 for example. Then, in step 3 7 
the user submits a pick by pointing to and clicking on a 
particular area or areas in the pick form via the user's 
mouse or other position pointer. Referring to Fig. 4, 
the user may make a straight bet [spread, over, or under] 
(using points instead of money) by selecting item 72, and 
may scan through different potential games to bet on and 
their odds by selecting scroll button 74. The user may 
alter the number of points he/she wants to wager on a 
pick by selectively activating scroll button 76, so that 
the points to be wagered are shown in block 86. The 
pick, once selected in box 85 with the number of points 
in box 86, is selected by clicking on or selecting 
football shaped icon/area 87. 
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Thereafter, referring to Fig. 2, in step 39 the pick 
made in step 37 is checked for validity. In certain 
embodiments of this invention, the server may determine 
in step 3 9 that picks are invalid when any of (a) a pick 
5 pertains to a game that has already started, (b) a pick 
does not conform to the same restrictions applied to like 
named wagers in known sports gambling or per a 
predetermined system, (c) the pick is in excess of a 
predetermined number (e.g. 25) of college or professional 
10 game picks by a single user in a given period of time, or 
(d) the pick is a duplication of a previous pick by the 
same user. This invalidation or non-acceptance of certain 
picks may take place in the server at step 39, although 
in other embodiments it may take place at step 75, or any 
15 other point in the process. 

If the server determines that the pick or picks are 
invalid in step 39, then in step 41 the user can modify 
and resubmit the pick. The server checks for the 
validity of the resubmitted pick again in step 39. 
20 Whenever the server in step 3 9 determines that a pick is 
valid, then a review pick screen is portrayed on the 
user's display (e.g. see Fig. 5) in step 43 and the user 
has three options: (a) edit or change the pick by 
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selecting area 92 in Fig. 5, (b) make another pick by 
selecting area 94 in Fig. 5, and (c) indicated that the 
user is finished making picks for the time being by 
selecting area 96 on the Fig. 5 screen. If the user 
decides to choose option (a) by selecting area 92, then 
the user edits or changes the pick at step 4 5 and the 
validation process regarding the changed pick is started 
again at step 39. If the user chooses option (b) (make 
another pick) , then another picks form is displayed to 
the user (e.g. see Fig. 6) so that the user may make 
another pick in addition to the first one, and also when 
area 94 is selected in step 47 then the server in step 49 
creates a text string or the like for recording the pick 
that already has been made (e.g. one text string per pick 
in certain embodiments) . The user may then make another 
pick via the screen of Fig. 6, and click on area 87 so 
that the validation process regarding this next pick 
(from the Fig. 6 screen) is again started in step 39. 
The user then reviews this second pick via the screen of 
Fig. 7. When the user chooses option (c) [e.g. clicks on 
box 96] at 51, the user selects this option 51 indicating 
that the user is finished making picks and the server in 
step 53 creates a text string recording the most recent 
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pick that has been made. Thus, a string is recorded in a 
memory of the server for each pick made by the user. 

The server in step 55 then uses the text string (s) 
created in steps 49 and 53 to generate a review of all 
picks made by the user. An exemplar screen for reviewing 
all picks that may be shown to a user on the user's 
display is found in Fig. 8. The user has two options at 
this point, namely cancelling all of his picks by 
selecting area 104 at step 57 or submitting all of his or 
her picks by selecting (clicking on) area 102 at step 59. 
If the user decides to cancel all the picks, then the 
server does so in step 61 by deleting the applicable text 
strings and the system goes back to step 35 where the 
pick form is presented to the user for selection. 
However, if the user decides in step 55 to submit all of 
the picks, then the user selects this option at step 59 
by selecting box 102 and the server at step 63 adds all 
of the text strings representing the picks to the pick's 
text file (PTF) and the pick making process ends at step 
65. 

When the user enters the members area at 31, and 
decides to pick the second option (post pool picks 
option) , then the server at step 67 retrieves data from 



the PTF file and places it in the picks access table 
(PAT) . In certain embodiments, this retrieving of data 
from the PTF and placing it into the PAT may be done 
every so often per a predetermined schedule (e.g. every 
five minutes) . The server then in step 69 creates an 
HTML file which posts all qualifying picks that were 
retrieved from the PAT. The user then may access the 
HTML file in step 71 in order to view the picks. In such 
a manner, this option may be utilized by a user to view 
either that particular user's previous picks that are 
pending or have already been decided, or alternatively 
may be used to view the picks of other users in the 
user's pool, or any other pool. 

With regard to the third option selectable from the 
members area at step 31, when the user requests the 
review results option, the results may be reviewded 
provided that the server 11 at step 73 has retrieved 
sports game results (e.g. results from football games 
and/or basketball games) from the GAT. Such retrieval 
may be done every so often on a set schedule for example. 
Then, in step 75 the server 11 removes duplicate picks 
from the PAT. In step 77, the server then compiles data 
in the GAT and PAT and stores results in the results 



access table (RAT) . In step 79, the server creates an 
HTML file for posting the results using data from the 
RAT. The user may then access the HTML file created in 
steps 79 in step 80, in order to view the pick results 
5 for a predetermined period of time (e.g. from the 
previous week) . 

Figure 3 illustrates an exemplary display screen 
that is shown to the user at step 13 (i.e. the home 
page) . As shown in the right-hand side, there is a 

10 "members only" selectable area 81 and a selectable "sign- 
up" area 83. Either of these selectable areas on the 
display screen may be selected by the user positioning 
the screen cursor over the selectable area via a mouse or 
the like, and clicking on same. When area 81 is 

15 selected, the system proceeds to step 31, while when area 
83 is selected, the system proceeds to step 15. 

Figure 4 illustrates an exemplary pick form that is 
shown on the screen of a user's PC in picking step 37. 
As shown on the screen, there is an area designated "pick 

20 type" which enables the user to select whether his or her 
pick will be of the "straight" type, or a specialty type 
such as a tease, parlay, or reverse. These bet types are 
explained below. There is also an area 85 which displays 
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the team being picked, and the odds or over/under at 
issue. For example, if the Washington Redskins were 
playing the N.Y Giants in a professional NFL football 
game as shown in Figs. 4-5, and the user wished to pick 
5 the Redskins to win versus the 2 point spread, then the 
user would manipulate area 85 until the Redskins came up 
as shown in Figure 4, and click on spread area 89. The 
user would select the number of points wagered by- 
scrolling at 76 until the number of points (e.g. 500) to 

10 be wagered was shown in box 86. The user would then 

click on football area 87 in order to submit the pick in 
step 37. The screen illustrated in Figure 4 is set up 
for the user selecting a team versus the "spread" as 
illustrated at 89. However, if the user wished to select 

15 an over/under, i.e. whether the combined points scored by 
both teams would be over or under 3 6.5, then the user 
could select or click on the appropriate over or under 
area 91 or 93, respectively. In such a manner, a variety 
of different types of picks may be submitted. It is also 

20 noted that while the "straight" bet box 72 was selected 
in Fig. 4, it is possible to instead select any of the 
tease, parlay or reverse boxes illustrated on the pick 
form in order to make any of these types of picks. 
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Figure 5 is an exemplary review pick display screen 
that is shown to the user on the user's personal computer 
screen in step 43. If the user in Fig. 5 selects the 
make another pick area 94, then another pick form will be 
displayed to the user as shown in Fig. 6. Fig. 6 
illustrates the user picking a "tease" bet, including the 
"over" [i.e. combined points in the game picked to exceed 
39.5 points] in the Vikings game and the Steelers versus 
the 3 point spread in another game. 1000 points is shown 
as being wagered in the Fig. 6 pick. 

Figure 7 is an exemplary screen which may be shown 
to the user after the Fig. 6 tease pick was made, as 
caused by server 11, in step 43. If the user selects the 
finished making picks area 96 in Fig. 7, then the next 
screen shown to the user is the Fig. 8 screen. Figure 7 
screen also shows how the server causes the display to 
show the user how many points the user would win/ lose 
given the proposed pick. 

Figure 8 is an exemplary screen which may showed to 
the user in step 55 in which the user can review all 
picks. As shown in Figure 8, the screen indicates that 
the user has wagered 1500 points [1000 points from the 
Fig. 6 pick and 500 from the Fig. 4 pick], and has picked 
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both a "straight" [Fig. 4] and a "tease" [Fig. 6] . In 
the straight pick, the user has wagered 500 points and 
picked the Redskins to beat the spread of 2 points versus 
the Giants. In the tease pick, the user has wagered 
1,000 points, has picked the over (over 33.5 points, down 
from 39.5 due to the tease) in the Vikings /Buccaneers 
game, and picked the Steelers to beat the spread of 3 
points (from an original -3 due to the tease) versus the 
Ravens in this NFL game. As illustrated in Figure 8, the 
user can either cancel all of these picks by selecting 
cancel area 104 or can submit all of these picks (final 
selection) by selecting "submit" area 102. 

Figure 9 is an exemplary screen shown to the user on 
his/her PC screen in "end" step 65. This screen 
indicates to the user that the user's picks have been 
submitted, and allows the user to return to pick pools 
step 33 in certain embodiments. Alternatively, the user 
may exit the system from the screen shown in Figure 9. 

Many different types of picks may be made according 
to the different embodiments of this invention. For 
example, there are three types of "straight" picks which 
may be made. These "straight" picks include a spread 
pick, an over pick, and an under pick. In a spread pick, 



« * 

the user picks a team to win versus the spread. For 
example, the user may pick Chicago and the spread is -10, 
which means that Chicago must win by more than 10 points 
in order for the user to hit this pick. In an over pick, 
5 the user picks a game where the total points scored will 
be greater than the over/under line. For example, if the 
user picks the "over" in the Redskins /Dal las game and the 
over/under is 42, then the total points scored in the 
game must be greater than 42 for the user to hit this 
10 pick (i.e. win this pick). In the "under" type of 

straight pick, the user picks a game and wagers that the 
total points scored will be less than that of the 
over/under line. For example, if the user picks the 
under in the Redskins/Dallas game when the over/under 
15 line is 42, then the total points scored in that game 
must be less than 42 for the user to hit or win that 
pick. According to certain embodiments of this 
invention, if a user hits a straight pick, the user wins 
a predetermined number of points, such as even points 
20 (e.g. a win on a 100 point wager pick results in the user 
winning 100 points) . If a user misses a straight pick, 
then the user loses the points wagered plus a given 
number of pints or percentage of the wagered points [e.g. 
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ten percent (e.g. a loss or miss on a 100 point wager 
results in the user losing 110 points)]. Alternatively, 
if a user "pushes" a pick, meaning that it is a tie (i.e. 
Chicago -10 spread and Chicago wins by exactly 10, or 
Redskins/Dallas over 42 and the total scores equals 
exactly 42) then no points are won or lost. 

Tease picks may also be chosen in certain 
embodiments of this invention as discussed above. In a 
tease, the user makes two straight picks, but in each 
pick the spread or over/under as it may be, moves a given 
number of points (e.g. 6 points) in favor of your pick. 
In order to win points, you must hit both picks in a 
tease, and pushes are considered losses. A tease may 
consist of any combination of two straight picks. If you 
hit a tease, you hit (or win) both picks, and thus you 
win even points (e.g. a 100 point win or hit, results in 
the user wining 100 points) . However, if you miss a 
tease, i.e. you miss or push at least one of the two 
picks, then the user loses the points plus a percentage 
of the wager such as twenty percent (a 100 point miss or 
loss, results in the user losing 120 points) . In certain 
embodiments, the percentage of the wager lost when a user 
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loses a pick, in addition to the amount of the wager, is 
greater for a tease than a typical straight pick. 

The user may also make "parlay" picks according to 
certain embodiments of this invention. A parlay is 
simply any two (or more in certain other embodiments) 
straight picks. If the user hits both of them, the user 
wins a given number of points (e.g. 12 points) for every 
other given number of points (e.g. 5 points) wagered. If 
the user misses or pushes either of the two picks, then 
the user loses only the amount of the wager. For 
example, a 500 point parlay wins 1,200 points, while a 
500 point parlay loses only 500 points. 

Users may also make "reverse" picks according to 
certain embodiments of this invention. When making a 
reverse pick, the user makes any two straight picks. If 
the user hits both, then the user wins a given amount 
pursuant to a particular odds ratio (e.g. 4 to 1) . 
However, if the user misses or pushes one of the two 
picks, then the user loses the wager plus a given 
percentage of the wager such as twenty percent, or if the 
user misses or pushes both of the two picks then the user 
loses the wager plus the given percentage (e.g. twenty 
percent) times two (one for each pick) . 



It is to be kept in mind that the points utilized 
above in discussing picks and the results of wins and 
losses therefrom, are exemplary in nature. Different 
numbers of points, and different odds, may be used. 
5 Users may wager any number of points on any pick, but 
point ceilings and/or floors are put in place by the 
server in certain embodiments. 

Once given the above disclosure, many other 
features, modifications, and improvements will become 
10 apparent to the skilled artisan. Such other features, 
modifications, and improvements are, therefore, 
considered to be a part of this invention, the scope of 
which is to be determined by the following claims. 
Set forth below is a listing of software 
15 (programming language is SMX or Server Macro Expansion) 
which may be utilized in conjunction with server 11 to 
implement certain embodiments of this invention. 



34 



PPPPPP proofoot-form.hmx 



<HTML> 
<HEAD> 

<BASE HREF= "ht tp : / /www . insideodds . com/members / " > 
<! — BASE HREF="http://localhost/" — > 

<META NAME- "keywords" CONTENT="Sports, Football, NCAA, NFL, Basketball, NBA, 
Odds, Spreads, Line, Picks, Scores f Statistics, Win, Loss"> 
<TITLE>Inside Odds - Members Only - Pick Pools 1 97</TITLE> 
</HEAD> 

<BODY BACKGROQND="back. gif " TEXT=#000000 BGCOLOR=# FFFFFF LINK-#0000FF 
VLINK=#0000FF ALINK=#FF0000> 

<! — Inside Odds Home Page Revision 3 — > 

<!- — Author: Bret Strachan — > 

<f — ft-eb Design: Andrew Ventura /Bret Strachan — > 

<! — Programming: Dave Anderson — > 

%gset (inc, D: /CBuilder/htdocs/odds/timing . inc) 

%expand(% include (%inc%) ) 

%setDT{) 

%if (Sequal (%form (records) , %null%) , 

%gset (records, 0), %gset (records, %form ( records ) ) 

) 

%def ine (showform, 

%gset (teamlist , %null%) 

%set (sqlstmt2, "SELECT * FROM ProfootLine ORDER BY GamelD") 
%set (async-sql, T) 
%try ( 

%sqi (SportsTicker, %sqlstmt2%, 
%gset (spread, %null%) 

%if(%equal (%left (%column (Spread) , 1), -) , 

%gset (spread, Igettoken ( Icolumn (Spread) , "-", 0) ) 

%gset (homespread, -%spread%) %gset (awayspread, +%spread%) 

r 

%gset (spread, %column (Spread) ) 

%gset (homespread, +%spread%) %gset (awayspread, -%spread%) 

) 

%if (%equal (% column ( Over Under) , 200.0) , %gset (OvUn, 0.0) , %gset (OvUn, 
%column (OverUnder) ) ) 
%checkone ( ) 

%if (%equal(%show%, "YES"), 

%gset (teamlist, %teamlist%<OPTION 
VALUE=\"%column {GamelD) #% column (HomelD) #%column (HomeName) #%homespread%#%OvUn% \ "> 
%column (GamelD) : % column (HomeName) : %homespread% : %OvUn%%cr% ) 

%gset (teamlist, %teamlist%<OPTION 
VALUE=\"% column (GamelD) #% column (AwaylD) #% column (AwayName) #%awayspread%#%OvUn% \ "> 
% column (GamelD) :% column (AwayName) : %awayspread% : %OvUn%%cr% ) 
) 

) 

<FORM METHOD=GET ACTION="prof oot-verif y . hmx"> 
<INPUT TYPE=HIDDEN NAME=" system" VALUE="InsideOdds "> 
<INPUT TYPE=HIDDEN NAME="process" VALUE- "CHECK rr > 

<INPUT TYPE-HIDDEN NAME-"userinf o" VALUE=\ "%client-authname%#%pickpool%\ "> 
<INPUT TYPE=HIDDEN NAME=" records " VALUE=\ "%records% \ "> 
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%set(step, 1) 

%while (%lre (%step%, %records%) , 

<INPUT TYPE-HIDDEN NAME=\ "pick%step%\ " VALUE=\ "%f orm (picklstepl ) \ "> 
%set(step, %iadd(%step%, 1)) 

) 

<TABLE BORDER- 1 WIDTH=98%> 

<TRXTH C0LSPAN=3>%proweek%</TH></TR> 

<TR> 

<TD COLSPAN-2 ALIGN=CENTER> 

<FONT COLOR-#00800QXB>Pick Type : </Bx/FONT> 

<INPUT TYPE-RADIO NAME- \ " t ype \ ,f VALUE="1" CHECKED>Straight 

<INPUT TYPE-RADIO NAME=\ rr type\" VALUE-" 2 ">Tease 

<INPUT TYPE-RADIO NAME=\"type\" VALUE="5 ">Parlay 

<INPUT TYPE-RADIO NAME=\ "type \ " VALUE= " 6 M >Re ver s e 
</TD> 

<TD ALIGN=CENTERXINPUT TYPE=IMAGE NAME- "CHECK" SRC-" f ball . gif *• 
BORDER-0X/TD> 
</TR> 
<TR> 

<TD VALIGN-TOP ALIGN-CENTER> 

<INPUT TYPE-RADIO NAME-\"optionl \" VALUE="1" CHECKED>Spread <INPUT 
TYPE-RADIO NAME-\"optionl\" VALUE="3 ">Over <INPUT TYPE-RADIO NAME=\ "optionl\ 
VALUE-"4">Under 

<SELECT NAME=\"teaml\"> 

<OPTION VALUE-" ">Select a Team 
%teamlist% 
</SELSCT> 
</TD> 

<TD VALIGN-TOP ALIGN=CENTER> 

<INPUT TYPE-RADIO NAME=\ "opt ion2 \ " VALUE-" 1" CHECKED>Spread <INPUT 
TYPE-RADIO NAME=\"option2\" VALUE="3">0ver <INPUT TYPE-RADIO NAME=\ "option2\ 
VALUE="4">Under 

<SELECT NAME=\"team2\"> 

<OPTION VALUE-" ">Tease/Parlay/Reverse Selection 
%teamlist% 
</SELECT> 
</TD> 

<TD VALIGN-BOTTOM ALIGN— CENTER> 
<BR> 

<SELECT NAME=\"wager\"> 

<OPTION VALUE- "">Wager 

<OPTION VALUE-" 500 ">5 00 Pts. 

<OPTION VALUE-"1000">1000 Pts. 

<OPTION VALUE-"1500">1500 Pts. 

<OPTION VALUE-"2000">2000 Pts. 
</SELECT> 
</TD> 
</TR> 
<TR> 

<TD BGCOLOR=#C0C0C0 ALIGN-CENTER C0LSPAN=2XB> Click on the Football 
button to Submit your Pick </B></TD> 

<TD BGCOLOR-#C0C0C0 ALIGN=CENTER>%showtime%</TD> 
</TR> 
</TABLE> 
</FORM> 



r 

<H2XF0NT COLOR-FFOOOOERROR Connecting to Game Database</FONT></H2> 



<H3>Message : %exception-msg%</H3> 

<H3>Please contact <A 
HREF="mailto : webmaster@insideodds . com">webmaster@insideodds . cora</A> 

immediately with this problem. <SR>Se sure to include the error message 
above. </H3> 



%set (async-sql, T) %gset (passed, %null%) 

%set (sqlstmt, "SELECT * FROM Profile WHERE UserlD - 1 %client-authname% ' " ) 
%try( 

%sql(IO Members, %sqlstmt%, 

%if (%equal(%column(ProFootPick) , 1) , 

%gset (passed, "YES") %gset (pickpool, %column (PickPool ) ) 



<FONT COLOR=FF0000>ERROR Connecting to Members Database<BR> 

Type: %exception-type% I %exception-msg%</FONT> 

Please contact <A 
HREF="mailto : webmaster@insideodds . com">webmaster@insideodds . com</A> 

immediately with this problem. <BR> Be sure to include the error message 
above. <P> 
) 

%if (%equal (%passed%, %null%) , 

<H2><F0NT COLOR«#FF0000>You have not registered for access to this feature. 
</F0NTX/H2xP> 

<H3XF0NT COLOR=#FF0000>If you believe you have received this message in error 
please<BR> 

contact system administration at </FONT> <A 
HREF="mailto : webmaster@insideodds . com">webmaster@insideodds . com</A></H3> 

%showform( ) 

) 

<BRXBR> 
<CENTER> 

<A HREF="/index.html"xlMG SRC="/home . gif " BORDER="0" WIDTH="83" 
HEI GHT= "45" X / AXBR> 

I <A HREF=" /index. html ">Home Page</A> I <A HREF=" index. html ">Members Only</A> I 

<A HREF="profoot-pool.hmx">Pick Pools</A> | 

</CENTER> 

<HR> 
<P> 

<FONT SIZE="2"> 

Please note this web site and the information contained herein is for 
entertainment purposes only. Inside Odds is not responsible for any 
associated errors or omissions. Any questions or comments? Drop us a line at 
<A HREF="mailto : webmasterSinsideodds . com">webmaster@insideodds . com</A> 

</FONT> 

</P> 



</BODY> 
</HTML> 




PPPPPP profoot -games . hmx 



<HTML> 
<HEAD> 

<BASE HREF="http : //www. ins ideodds . com /members/ "> 
<! — BASE HREF="http: //localhost/" — > 

<META NAME- "keywords" CONTENT- "Sport s , Football, NCAA, NFL, Basketball, NBA, 
Odds, Spreads, Line, Picks, Scores, Statistics, Win, Loss"> 
<TITLE>Inside Odds - Members Only - NFL Lines </TITLE> 
</HEAD> 

<BODY BACKGROUND— "back . gif 11 TEXT=#Q00000 BGCOLOR=#FFFFFF LINK=#0000FF 
VLINK=#0000FF ALINK=#FF0000> 

<1 — Inside Odds Home Page Revision 3 — > 

<! — Author: Bret Strachan — > 

<! — Web Design: Andrew Ventura/Bret Strachan — > 

<! — Programming: Dave Anderson — > 

Igset (inc, D: /CBuilder/htdocs/odds/timing. inc) 

%expand(%include (%inc%) ) 

%setDT() 

%gset (created, %Month% %Day% 8 %showtime%) 
<TABLE B0RDER=3 WIDTH=98%> 

<TRXTH BGCOLOR-#C0C0C0 C0LSPAN=5>%proweek%</THx/TR> 
<TRXTH C0LSPAN=5>Line as of %created%</THX/TR> 

<TRXTH BGCOLOR=#C0C0C0>HOME</THXTH BGCOLOR«#C0C0C0>SPR</THXTH 
BGCOLOR«#C0C0C0>AWAY</THXTH BGCOLOR-#C0C0C0>OV/UN</TH><TH 
BGCOLOR«#C0C0C0>TIME</THX/TR> 

%set (sqlstmt, "SELECT * FROM ProfootLine ORDER BY GamelD") 
%set (async-sql, T) 
%try ( 

%sql (SportsTicker, %sqlstmt%, 
%gset (showall, "TRUE") 
%checkone { ) 

%if (%equal(%show%, "YES"), 
%gset (spread, %null%) 

%if (%equal (%left (%column (Spread) , 1) , -) , 

%gset (spread, Igettoken ( %column (Spread) , 0)) 

%gset (homespread, -%spread%) %gset (awayspread, +%spread%) 

r 

%gset (spread, % column (Spread) ) 

%gset (homespread, +%spread%) %gset (awayspread, -%spread%) 

) 

%if (%equal (% column (OverUnder) , 200.0), %gset (OvUn, -) , Igset (OvUn, 
Icolumn (OverUnder ) ) ) 

%if(%equal (%column (Spread) , 200.0), %gset (Spread, <B>NO LINE</B>) 
%gset(OvUn, -) , %gset (Spread, %homespread%) ) 

<TR> 

<TD ALIGN=CENTERXB>% column (HomeName) </BX/TDXTD ALIGN-CENTERXFONT 
COLOR=#FF0000xB>%Spread%</Bx/FONTX/TD> 

<TD ALIGN=CENTERXB>% column (AwayName) </B></TDXTD ALIGN=CENTER><FONT 
COLOR-#0000FFXB>%OvUn%</BX/FONTX/TD> 

%gset(GHour, %gettoken(%column(Time) , ":", 0)) Igset (GMinute, 
%gettoken(%column(Time) , " : ", 1) ) 

%if (%gt (%GHour%, 12) , %gset(GAmPm, "PM") %gset (GHour, %isub ( %GHour% , 12) 

%if (%equal (%GHour%, 12), %gset (GAmPm, "PM")) 



<TD ALIGN=CENTERXB>%column ( Day ) \, %column (Date) </B> @ %GHour% : %GMinute% 
%GAmPm%</TD> 
</TR> 

) 

) 

r 

<H2><F0NT COLOR=FF0000>ERROR Connecting to Games Database</F0NTx/H2> 

<R3>Messaqe : %exception-msg%</H3> 

<H3>Please contact <A 
HREF="mailto : webmaster@insideodds . com">webmaster@insideodds . com</A> 

immediately with this problem. <BR>Be sure to include the error message 
above. </H3> 



<A HREF="/index.html"xlMG SRC="/home . gif " BORDER-"0" WIDTH="83" 
HEIGHT=" 4 5 "X / AXBR> 

| <A HREF= l 7index.htral">Home Page</A> | <A HREF= rr index . html ">Members Only</A> 1 
</CENTER> 

<HR> 
<P> 

<FONT SIZE="2"> 

Please note this web site and the information contained herein is for 
entertainment purposes only. Inside Odds is not responsible for any 
associated errors or omissions. Any questions or comments? Drop us a line at 
<A HREF="mailto : webmaster@insideodds . com">webmaster@insideodds . com</A> 
</FONT> 
</P> 

</BODY> 
</HTML> 

PPPPPP prof oot-pool . hmx 



<HTML> 
<HEAD> 

<BASE HREF="http : //www . insideodds . com/members/ "> 
<! — BASE HREF="http://localhost/ rr > 

<META NAME=" keywords " CONTENT="Sports, Football, NCAA, NFL, Basketball, NBA, 
Odds, Spreads, Line, Picks, Scores, Statistics, Win, Loss"> 
<TITLE>Inside Odds - Members Only - Pick Pool 1 97</TITLE> 
</HEAD> 

<BODY BACKGROUND="back.gif" TEXT=#000000 BGCOLOR=#FFFFFF LINK=#0000FF 
VLINK»#0000FF ALINK=#FFO0O0> 

<!-- Inside Odds Home Page Revision 3 — > 
<! — Author: Bret Strachan — > 

<! — Web Design: Andrew Ventura/Bret Strachan — > 
<! — Programming: Dave Anderson — > 



</ TABLE > 



<BRXBR> 
<CENTER> 




<H2><IMG SROVfball.gif "> 1997 Professional Football Pick Pool <IMG 
SROVfball . gif "><HRX/H2> 

Idef ine (show, 
<CENTER> 

| <A HREF="profoot-games .hmx" TARGET- "_new"> View this weeks match-ups</A> ! <A 
HREF="picktype.html" TARGET="_new M > Explanation of different Pick Types</A> | 
<P> 

<FONT COLOR=#FF0000>*** The new weekly match-ups will be loaded each Tuesday 

***</FONT> 

</CENTER> 

<?> 

<TABLE B0RDER=1 CELLPADDING=3 WIDTH=98%> 

• <TRXTHXFONT COLOR=#008000>My Pick PooK/FONTx/THxTHXFONT 
COLOR==#008000>Other Pick Pools</FONTX/THX/TR> 
<TRXTD ALIGN=CENTER> 

<A HREF="profoot-form.hmx">Make my Picks for this Week</A><P> 
<A HREF="show.hmx?file«profoor-%pickpool%-picks.hmx">View all Picks in my 
pool</AXP> 

<A HREF="show.hmx?file==foot-%pickpool%-results .hmx">View the latest Results 
in my pool</A> 
</TD> 

<TD ALIGN~CENTER> 

<A HREF="show.hmx?file=profoot-picks .html">View all Picks from other 
poolS</AXP> 

<A HREF="show.hmx?file=foot-results.html">View the latest Results from other 
pools</A> 

</TD> 

</TR> 
</TABLE> 
) 

%gset (inc, D: /CBuilder /ht docs /odds /members /pickpool . inc) 
% expand (% include (%inc%) ) 

<BRXBR> 
<CENTER> 

<A HREF=" /index. html "XIMG SRC=" /home . gif " BORDER="0" WIDTH-"83" 
HEIGHT-" 45 "></AXBR> 

I <A HREF="/index.html f, >Home Page</A> | <A HREF=" index. html ">Members Only</A> I 
</CENTER> 

<HR> 
<P> 

<FONT SIZE="2"> 

Please note this web site and the information contained herein is for 
entertainment purposes only. Inside Odds is not responsible for any 
associated errors or omissions* Any questions or comments? Drop us a line at 
<A HREF="mailto: webmaster@insideodds . com">webmaster@insideodds . com</A> 
</FONT> 
</P> 



</BODY> 
</HTML> 




pppppp prof oo t- verify .hmx 



<HTML> 
<HEAD> 

<BASE HREF="http: //www. ins ideodds . com/member s/"> 
<!-- BASE HREF~"http: //localhost / " — > 

<META NAME=" keywords " CONTENT="Sports, Football, NCAA, NFL, Basketball, NBA, 
Odds, Spreads, Line, Picks, Scores, Statistics, Win, Loss ,r > 
<TITLE>Inside Odds - Members Only - Pick Pools 1 97</TITLE> 
</HEAD> 

<B0DY BACKGROUND- "back. gif" TEXT=#000000 BGC0L0R=#FFFFFF LINK=#0000FF 
VLINK=#0000FF ALINK=#FF0000> 

<! — Inside Odds Home Page Revision 3 — > 

<! — Author: Bret Strachan — > 

<! — Web Design: Andrew Ventura/Bret Strachan — > 

<! — Programming: Dave Anderson — > 

%null (%enumform( r %name%=%value%<BR>%crlf %) ) 
%gset (inc, D: /CBuilder/htdocs/odds /timing. inc) 
%expand ( %include (%inc% ) ) 
%setDT() 

<TABLE BORDER- 1 CELLPADDING-3 WIDTH=98%> 

<TRXTH BGCOLOR=#C0C0C0 C0LSPAN=3>%proweek%</TH></TR> 
</TABLE> 

%def ine (make teams, 

%gset (teamlist, %null%) %gset (gamenum, 0) 

%set (sqlstmt2, "SELECT * FROM ProfootLine ORDER BY GamelD") 

%set (async-sql, T) 

%try( 

%sql (SportsTicker, %sqlstmt2%, 

%gset (gamenum, %iadd (%gamenum%, 1)) 
%gset (spread, %null%) 

%if (%equal (% left (%column (Spread) , 1) , -) , 

%gset (spread, %gettoken (%column (Spread) , 0) ) 

%gset (homespread, -%spread%) %gset {awayspread, +%spread%) 

r 

Igset (spread, %column (Spread) ) 

%gset (homespread, +%spread%) Igset (awayspread, -%spread%) 

) 

%if (lequal (%column(OverUnder) , 200,0), %gset(OvUn, 0.0), %gset(0vUn, 
%column(Over(Jnder) ) ) 
Icheckone ( ) 

%if (%equal(%show%, "YES"), 

%gset (teamlist, %teamlist%<OPTION 
VALCJE=\"%column (GamelD) #%column (HomelD) #%column (HomeName) #%homespread%#%Ov(Jn% \"> 
%column (GamelD) :% column (HomeName) : %homespread% : %0vUn%%cr% ) 

%gset (teamlist, %teamlist%<OPTION 
VALUE=\"%column (GamelD) #%column (AwaylD) #%column (AwayName) #%awayspread%#%OvUn% \ "> 
%column (GamelD) : %column (AwayName) : %awayspread% : %OvUn%%cr%) 

%if (%lt (lgamenum%, 10), %gset(num, 0%gamenum%), %gset(num, %gamenum%) ) 

%gset (game%num%, 

^column (Date) #lcolumn (Time) #%column (AwaylD) #%column (AwayName) #%awayspread%#%OvUn 
%#%column(HomeID) #%column (HomeName) #%homespread%#%OvUn% ) 
) 
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<H2xF0NT COLOR=FF0000>ERROR Connecting to Game Database</F0NTX/H2> 

<H3>Message : %exception-msgl</H3> 

<H3>Please contact <A 
HREF="mailto : webmaster@insideodds . com">webmaster@insideodds . com</A> 

immediately with this problem, <BR>Be sure to include the error message 
above. </H3> 
) 



%define (varload, 

Igset (type, % form (type) ) %gset (wager, % form ( wager ) ) 

%gset (optionl, %f orm (optionl) ) Igset (option2, %f orm (option2) ) 

Igset (gameidl, %gettoken(%form(teaml) , "#", 0) ) 

Igset (teaml, %gettoken (Iform(teaml) , "#", 1)} 

Igset (namel, %gettoken (%f orm (teaml) , "#", 2)) 

%gset (spreadl, %gettoken (%f orm (teaml ) , "#", 3)) 

Igset (ovunl, %gettoken (%f orm (teaml ) , "#", 4)) 

%gset (gameid2, %gettoken ( %f orm (team2 ) , "#", 0}) 

Igset (team2, %gettoken ( If orm ( team2 ) , "#", 1)) 

Igset (name2, %gettoken ( %f orm ( team2 ) , "#", 2)) 

Igset (spread2, %gettoken (%form ( team2 ) , "#", 3)) 

%gset(ovun2, %gettoken ( %f orm ( team2 ) , "#", 4)) 



%def ine (pickload, 

%gset (wager, Igettoken ( If orm (picklstepl ) , "#", 0) ) 
%gset (type, %gettoken (%form(pick%step%) , "#", 1) ) 
Igset (optionl, Igettoken (If orm (picklstepl ) , "#", 2)) 
%gset (gameidl, %gettoken ( If orm (pick%step% ) , "#", 3) ) 
Igset (teaml, Igettoken (%f orm (pick%step% ) , "#", 4) ) 
%gset (namel, %gettoken (%£ orm (picklstepl ) , "#", 5) ) 
%gset (spreadl, %gettoken (%form(pick%step% ) , "#", 6)) 
%gset (ovunl, %gettoken (%form (pick%step% ) , "#", 7} } 
Igset (option2, %gettoken ( %f orm (pick%step% ) , "#", 8) ) 
%gset (gameid2, Igettoken (%f orm (pick%step% ) , "#", 9} ) 
%gset (team2, %gettoken (%f orm (pick%step%) , "#", 10) ) 
%gset(name2, %gettoken (%form (pick%step% ) , "#", 11)) 
%gset (spread2, %gettoken (%f orm (pick%step% ) , "#", 12) ) 
%gset (ovun2, %gettoken ( %f orm (pick%step% ) , "#", 13) ) 



Idefine (newload, 

%gset (type, %form (pick%step%type) ) Igset (wager, Iform(picklsteplwager) ) 
%gset (optionl, %f orm(pick%step%optionl) ) Igset (option2, 
%form (pick%step%option2 ) ) 

Igset (gameidl, Igettoken (%form (pick%step%teaml) , "#", 0) ) 
%gset (teaml, Igettoken (%form (pick%step%teaml ) , "#", 1) ) 
%gset (namel, Igettoken (Iform (picklsteplteaml) , "#", 2) ) 
Igset (spreadl, Igettoken (If orm (pick%step%teaml ) , "#", 3) ) 
Igset (ovunl, Igettoken ( If orm (picklsteplteaml) , "#", 4) ) 
Igset (gameid2, Igettoken (If orm (picklsteplteam2) , "#", 0) ) 
Igset (team2, Igettoken (Iform (picklsteplteam2 ) , "#", 1) ) 
Igset (name2, Igettoken (If orm (picklsteplteam2 ) , "#", 2) ) 
Igset (spread2, Igettoken (If orm (pickl step! team2 ) , "#", 3) ) 
Igset (ovun2, Igettoken (If orm (pick%steplteam2 ) , "#", 4) ) 



Idefine (options, 

Igset (rdate, Igettoken ( lexpand (Igamelgameidlll ) , "#", 0) ) 




%gset (rtime, %gettoken ( % expand {% game % game idl%% ) , "#", 1) ) 
Igset (rteaml, Igettoken (lexpand (Igamelgameidlll } , "#", 2)) 
%gset (rnamel, %gettoken(%expand(lgamelgameidl%l) , "#", 3} ) 
%if (lequal {%teaml%, %null%) , %gset (namel, %rnamel%} ) 
%gset (rspreadl, Igettoken ( lexpand (Igamelgameidlll) , "#", 4) ) 
I if (%equal (%teaml%, %null%) , %gset (spreadl, %rspreadl%) ) 
%gset (rovunl, Igettoken (lexpand ( Igamelgameidlll ) , "#", 5) ) 
lif (%equal (%teaml%, %null%) , %gset (ovunl, %rovunl%) ) 
%gset (rteam2, %gettoken ( %expand (%game%gameidl%% ) , "#", 6) ) 
Igset (rname2, %gettoken (%expand ( Igamelgameidlll ) , "#", 7) ) 
lif (%equal (Iteam2l, %null%) , %gset (name2, %rname2%) ) 
%gset (rspread2, %gettoken (%expand(%game%gameidl%%) , "#", 8) ) 
%gset (rovun2, %gettoken ( If orm ( game % game idl% ) , "#", 9) ) 

%gset (sdate, %gettoken ( lexpand (Igamelgameid2l%) , "#", 0} ) 
%gset (stime, Igettoken (lexpand (Igame%gameid2ll ) , "#", 1) ) 
%gset (steaml, Igettoken ( lexpand ( Igamelgameid2ll ) , "#", 2) ) 
%gset (snamel, Igettoken ( lexpand (%gamelgameid2l%) , "#", 3) ) 
Igset (sspreadl, %gettoken ( lexpand ( %game%gameid2%% ) , "#", 4) ) 
Igset (sovunl, %gettoken (%expand (%game%gameid2%% ) , "#", 5) ) 
Igset (steam2, Igettoken ( lexpand ( Igamelgameid2ll ) , "#", 6) ) 
Igset (sname2, Igettoken (lexpand (Igamelgameid2l%) , "#", 7) ) 
Igset (sspread2, %gettoken ( lexpand (%game%gameid2%% ) , "#", 8) ) 
Igset (sovun2, Igettoken ( lexpand ( Igamelgameid2ll ) , "#", 9) } 
%case ( 

%equal (%type%, 1} , 

%gset (showtype, "STRAIGHT") 

%gset (win, %wager%) Igset (loss, %fmt (Imult (Iwagerl, -1. 1) , 0, , ) ) 

%equal (Itypel, 2), 

%gset (showtype, "TEASE") 

%gset (win, %wager%) %gset (loss, %fmt (%mult (%wager%, -1 . 2) , 0, , ) } 

f 

%equal{%type%, 5) , 

%gset (showtype, "PARLAY") 

%gset(win, %fmt (%mult (%div (I wager %, 5), 12) ,0,,)) %gset{loss, 
%fmt (%mult (%wager%, -1. 0) , 0, , ) ) 

%equal ( %type%, 6), 

%gset (showtype, "REVERSE") 

Igset (win, %fmt (%mult (%wager%, 4) ,0, , ) ) 

%gset(loss, "<FONT COLOR-#008000> (miss 1)</F0NT> ") 

%gset (lossl, %fmt (Imult (Iwagerl, -1 . 2) , 0, , ) J 

%gset (loss, %concat (%loss%, %lossl%) ) 

Igset (ioss2, %fmt (Imult (Iwagerl , -2 . 4 ) , 0, , ) ) 

Igset (loss, %concat (%loss%, " Pts. / ") ) 

%gset(loss, %concat ( %loss%, "<FONT COLOR==#008000> (miss both)</F0NT> ")) 
Igset (loss, %concat (llossl, %loss2%) ) 

) 

lif (lequal (Itypel, 2) , 
lease ( 

%equal (%optionl%, 1), %gset (showspreadl, %spreadl%) Igset (showspreadl, 
%fmt (laddflshowspreadll, 6), 1, ".",)) 

lif (Inot (lequal (lleft (Ishowspreadll, 1) , -} ) , 
Igset ( showspreadl , +lshowspreadll ) 

) 

Igset (showspreadl, Iconcat (Ishowspreadll, "*") ) 
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%equal (%optionl%, 3), %gset (showovunl, %ovunl%) %gset (showovunl, 
%fmt (%sub (%showovunl% / 6) , 1, ". ", ) ) %gset (showovunl, % cone at (% showovunl % f "*") ) , 

%equal ( %optionl% , 4), %gset ( showovunl , %ovunl%) %gset (showovunl, 
%fmt (%add(%showovunl%, 6) , 1, ". % \ ) ) %gset (showovunl, Iconcat (% showovunl! , "*") ) 



%equal (%option2%, 1) , %gset (showspread2, %spread2%) %gset (showspread2, 
%fmt (%add(%showspread2%, 6) , 1, ) ) 

%if (%not (%equal(%left (%showspread2%, 1), -) ) , 
%gset (showspread2, +%showspread2% ) 

) 

%gset (showspread2, %concat (%showspread2l , "*") ) 

%equal (%option2%, 3), %gset (showovun2, %ovun2%) %gset (showovun2, 
%fmt (lsub(%showovun2%, 6) , 1, ". ) ) %gset (showovun2, %concat (%showovun2%, "*") ) , 

%equal (%option2%, 4), %gset ( showovun2, %ovun2%) %gset (showovun2 , 
%fmt (%add(%showovun2%, 6) , 1, ) ) %gset (showovun2, %concat (%showovun2% , "*") ) 



%def ine (verify, 

%null(### START VERIFY ###) 

<FORM METHOD=GET ACTION="prof oot-verif y . hmx"> 

<INPUT TYPE=HIDDEN NAME=" system" VALUE="InsideOdds"> 

<INPUT TYPE=HIDDEN NAME="process" VALUE= " VERI FY " > 

<INPUT TYPE-HIDDEN NAME="userinf o" VALUE="%f orm (userinf o) "> 

%gset (hidepick, "NO") %gset (hideteam, "YES") %gset (ready, "YES") 

%gset (recs, %form (records ) ) %gset (number, % form ( records ) ) 

%gset(temp, % i add (% number % , 1)) 

IvarloadO %options() %checkdata() 

%if (%and(%equal (%error%, %null%) , %equal (%skip%, "NO") ) , 
%pass ( ) 

%if (%not (%equal (%error%, %null%) ) , 
%fail() 

) 



%if (%equal (%errors%, "YES" ) , 
%set(step, 1) 

%while (%lte (%step% , %form (records ) ) , 

<INPUT TYPE=HIDDEN NAME=\ "pick%step% \ " VALUE=\"%f orm (pick%step% ) \"> 
%set(step, %iadd(%step%, 1)) 

) 

%if (%equal (%skip%, "YES"), 

<CENTER><H2>NO PICK SELECTED</H2x/CENTER> 
%gset (ready, "NO") 

%gset (ready, "YES") 



lease ( 



%gset ( showspreadl , %spreadl% ) 
%gset (showovunl, %ovunl%) 



%gset (showspread2, %spread2% ) 
%gset ( showovun2 , %ovun2% ) 



%def ine (checkdata, 




%null(### START CHECKDATA ###) 

%gset(skip, "NO" ) %gset (error, %null%) %gset(skip, "NO") 
%checktwo ( ) 

%if (%equal(%showl%, "NO") , 

%gset (error, %error% <FONT COLOR^#FF0000>*** Selected game started @ %rtirne% 
***</FONTXBR>) 
) 

%if (%and(%not (%equal [%team2% / %null%)), %equal (%show2%, "NO")), 

%gset (error, %error% <FONT COLOR=#FF0000>*** Selected game started @ %stime% 
***</FONTXBR>) 
) 

%if (%equal {%type%, 999) , 

%gset(skip, "YES" ) %gset(recs, %isub ( %recs% , 1)) 

) 

%if (%and(%equal (%teaml%, %null%) , %equal (%type%, %null%) , %equal (%optionl%, 
■%null%), %equal (%team2%, %null%), lequal (%option2%, %null%), %equal ( %wager% , 
%null%) ) , 

%gset(skip, "YES" ) 

) 

%if (%and(%equal (%teaml%, %null%), %equal (%type%, 1), %equal ( %optionl% , 1), 
%equal (%team2%, %null%), %equal (%option2%, 1), lequal (%wager%, %null%)), 
%gset (skip, "YES" ) 

r 

%if (%or (%equal (%optionl%, 3), %equal (%optionl%, 4)), 
%if (%equal (%ovunl%, 0.0) , 

%gset (error, %error% <FONT COLOR=#FF0000>*** Las Vegas has not set an 
Over/Under for this game ***</FONT><BR>) 
) 

) 

%if {%or (%equal (%option2%, 3) , %equal ( %option2% , 4) ) , 
%if (%equal (%ovun2%, 0.0) , 

%gset (error, %error% <FONT COLOR=#FF000G>*** Las Vegas has not set an 
Over /Under for this game ***</FONTXBR>) 
) 

) 

%if (lequal (%wager%, %null%) , 

%gset (error, %error% <FONT COLOR=#FF0000>*** Must choose a wager for this 
pick ***</FONTXBR>) 
) 

%if [%equal (%teaml%, %null%) , 

%gset (error, %error% <FONT COLOR=#FF0000>*** Must choose a team from the 
first drop down box for this pick ***</FONTXBR>) 
) 

%if (%and(%equal (%type%, 1) , %not (%equal (%team2%, %null%) ) ) , 

%gset (error, %error% <FONT COLOR=#FF0000>*** Must choose a team ONLY from 
the first drop down box ***</FONTXBR>) 
) 

%if (%or (%equal (%type%, 2), %equal ( %type%, 5), %equal (%type% , 6)), 
%if (%equal (%team2%, %null%) , 

%gset (error, %error% <FONT COLOR=#FF0Q00>*** Must choose a team in both 
drop down boxes for this pick ***</FONTXBR>) 
) 

%if (%and(%equal (%gameidl%, %gameid2%) , %not (%equal (%teaml% / %team2%) ) , 
%equal (%optionl%, %option2%) ) , 

%gset (error, %error% <FONT COLOR=#FF0000>*** Pick options CANNOT be 
identical if the teams in the drop down boxes are playing each other 
***</F0NTXBR>) 



) 

%if (%and(%equal(%gameidl%, %gameid2%) , %equai (%teaml% , %team2%), 
%equal (%optionl%, %option2%) ) , 

%gset (error, %error% <FONT COLOR=4FF0000>*** Pick options CANNOT be 
identical if the reams in the drop down boxes are the same ***</FONTXBR>) 

) 

) 

) 

) 

Idef ine (pass, 

%null{### START PASS ###) 

<TABLE BORDER=l CELLPADDING=3 WIDTH=98%> 
%if (%equal(%type%, 1) , 

<TRXTD C0LSPAN=3XB>%showtypel Pick</B> <FONT COLOR~#008000xB>%wager% 
PtS.</BX/FONT> [Hit = <B>+%win% Pts.</B> I <FONT COLOR=#FF0000>Miss = <B>%loss% 
Pts . </BX/FONT>] </TDX/TR> 

<TRXTD> (%rname2%/%rnamel%) </TD> 
%case ( 

%equal (%optionl% / 1), <TD ALIGN-CENTERXFONT 
COLOR=#008000XB>%namel%</BX/FONTX/TDXTD ALIGN=CENTER>Spread = <FONT 
COLOR=#008000XB>%spreadl%<BX/FONT> , 

%equal(%optionl%, 3), <TD ALIGN=CENTERXFONT 
COLOR=#008000XB>Over</BX/FONTX/TDXTD ALIGN=CENTER>Over/Under = <FONT 
COLOR=#008000xB>%ovunl%</BX/FONT> , 

%equal (%optionl%, 4), <TD ALIGN=CENTERXFONT 
COLOR=#008000xB>Under</BX/FONTx/TDxTD ALIGN=CENTER>Over /Under = <FONT 
COLOR-#008000xB>%ovunl%</Bx/FONT> 
) 

i 

%if (%or (%equal (%type%, 2), %equal (%type% , 5), %equal ( %type% , 6)), 

<TRXTD COLSPAN=4XB>%showtype% Pick</B> <FONT COLOR=#008000XB>%wager% 

Pts.</BX/FONT> [Hit - <B>+%win% Pts.</B> | <FONT COLOR=#FF0000>Miss - <B>%loss% 

Pts.</BX/FONT>] %if (%or (%equal (%type%, 2), %equal (%type% / 5)), <FONT 

COLOR-#008000xBR>*<B>You must hit both games to Hit this 

pick</B>*</FONT>) </TDX/TR> 

<TRXTD > (%rname2%/%rnamel%) </TD> 
lease ( 

%equai (%optionl%, 1), <TD ALIGN=CENTERxFONT 
COLOR=#008000xB>%namel%</Bx/FONTX/TDXTD ALIGN=CENTER >Spread - <FONT 
COLOR-#008000xB>%showspreadl%<BX/FONTX/TDxTD ALIGN=CENTER > <B>AND</B> </TD> 

%equal(%optionl%, 3), <TD ALIGN=CENTERXFONT 
COLOR=#008000xB>Over</BX/FONTx/TD><TD ALIGN=CENTER >Over/Under = <FONT 
COLOR-#008000XB>%showovunl%</B></FONTX/TDXTD ALIGN=CENTER > <B>AND</B> </TD> 

%equal(%optionl%, 4), <TD ALIGN=CENTER><FONT 
COLOR==#008000XB>Under</Bx/FONTX/TDXTD ALIGN=CENTER >Over/Under = <FONT 
COLOR=#008000x3>%showovunl%</B></FONTX/TDXTD ALIGN=CENTER > <B>AND</B> </TD> 
) 

<TRXTD >(%sname2%/%snamel%) </TD> 
lease { 

%equal(%option2%, 1), <TD ALIGN=CENTER XFONT 
COLOR=#008000xB>%name2%</Bx/FONTX/TDXTD ALIGN=CENTER >Spread = <FONT 
COLOR=#008000xB>%showspread2%<Bx/FONTX/TDXTD ALIGN=CENTER > - , 

%equal(%option2%, 3), <TD AL I GN=C ENTER x FONT 
COLOR=#008000xB>Over</BX/FONTX/TDXTD ALIGN=CENTER >Over/Under - <FONT 
COLOR=#008000xB>%showovun2%</Bx/FONTX/TDXTD ALIGN=CENTER > - , 



%equal (%option2%, 4), <TD ALIGN=CENTER XFONT 
COLOR=#008000><B>Under</B></FONTX/TDXTD ALIGN-CENTER >Over/Under = <FONT 
COLOR-#008000xB>%showovun2%</Bx/FONTX/TDXTD ALIGN=CENTER > - 
) 

) 

) 

%if (%equal (%hideteam%, "YES") , 

<INPUT TYPE=HIDDEN NAME=\ "type\ " VALUE=\"%type%\"> 
<INPUT TYPE=HIDDEN NAME=\ "wager \ " VALUE=\"%wager%\ "> 
<INPUT TYPE=HIDDEN NAME-X " opt i on 1 \ " VALUE=\"%optionl%\ "> 
<INPUT TYPE=HIDD£N NAME=A"option2\" VALUE=\ " %option2% X "> 
<INPUT TYPE=HIDDEN NAME=\ "teaml X " VALUE=\"%f orm (teaml ) \"> 
<INPUT TYPE=HIDDEN N AME= \ " t e am2 \ " VALUE-X "%f orm ( team2 ) \ "> 

) 

%if (%equal(%hidepick%, "YES" } , 
%if (%equal (%type%, 1) , 

<INPUT TYPE-HIDDEN NAME=\ "pick%temp%X " 
VALUE=\ !, %wager%#%type%#%optionl%#%gameidl%#%teaml%#%namel%#%spreadl%#%ovunl%#### 
##\"> 

<INPUT TYPE=HIDDEN NAME-X "pick%t emp% \ " 
VALUE=\"%wager%#%type%#%optionl%#%gameidl%#%teaml%#%namel%#%spreadl%#%ovunl%#%op 
tion2%#%gameid2%#%team2%#%name2%#%spread2%#%ovun2%\"> 
) 

) 

</TDX/TR> 
</TABLEXBR> 

) 

idef ine ( fail, 

%null(### START FAIL ###) 
%gset {ready, "NO") %gset (errors, "YES") 
<TABLE BORDER- 1 CELLPADDING=3 WIDTH=98%> 
%if (%not (%equal (%error%, %null%) ) , 

<TRXTD COLSPAN=3 ALIGN=CENTER> %error% </TD></TR> 

) 

<TR> 

<TD COLSPAN-2 ALIGN=C£NTER > 

<FONT COLOR*#008000XB>Pick Type: </Bx/FONT> 

<INPUT TYPE=RADIO NAME=\ "type\ " VALUE=\"1\" %if ( %equal ( %type% , 1), 
CHECKED) >Straight 

<INPUT TYPE-RADIO NAME=\"type\" VALUE=\"2\" %if ( %equal { %type% , 2), 
CHECKED) >Tease 

<INPUT TYPE—RADIO NAME=\ "typeX " VALUE=\"5X" %if (%equal (%type% , 5), 
CHECKED) >Parlay 

<INPUT TYPE-RADIO NAME-X "typeX " VALUE=\"6\" %if ( %equal ( %type% , 6), 
CHECKED) >Reverse 
</TD> 

<TD ALIGN=CENTER XINPUT TYPE=IMAGE NAME- "CHECK" SRC="fball . gif " 
BORDER=0x/TD> 
</TR> 
<TR> 

<TD VALIGN-TOP ALIGN-CENTER > 

<INPUT TYPE-RADIO NAME- X " opt i on 1 \ " VALUE="1" %if (%equal (%optionl%, l) r 
CHECKED) >Spread <INPUT TYPE-RADIO NAME- X" opt ion IX" VALUE-"3" 
%if (%equal (%optionl%, 3), CHECKED) >Over <INPUT TYPE-RADIO NAME-X "optionl X " 
VALUE-"4" %if (%equal(%optionl%, 4), CHECKED) >Under 

<SELECT NAME=\ "teaml X"> 



%if (%not (%equal (%teaml%, %null%) ) , 
<OPTION 

VALUE-\ M %gameidl%#%teaml%#%namel%#%spreadl%#%ovunl%\">%gameidll :%namel%: %spreadl 
% : %ovunl% 

<OPTION VALUE=\"V> 

) 

<OPTION VALUE-\"\">Select a Team 
%teamlist% 
</SELECT> 
</TD> 

<TD VALIGN-TOP ALIGN=CENTER > 

<INPUT TYPE-RADIO NAME=\ "option2\ " VALUE="1" %if ( %or ( %equal ( %option2% , 1), 
%equal(%option2%, %null%)) / CHECKED) >Spread <INPUT TYPE-RADIO NAME-\"option2\" 
VALUE-"3" %if (%equal(%option2% / 3), CHECKED) >Over <INPUT TYPE=RADIO 
NAME=\"option2\" VALUE-"4" %if (%equal ( %option2%, 4), CHECKED) >Under 
<SELECT NAME=\"team2\"> 
%if (%not (%equal (%team2% / %null%) ) , 
<OPTION 

VALUE-\ ,, %gameid2%#%team2%#%name2%#%spread2%#%ovun2%\">%gameid2% :%name2%: %spread2 
%:%ovun2% 

<OPTION VALUE-\"\"> 

) 

<OPTION VALUE-" ">Tease/Pariay/Reverse Selection 
%teamlist% 
</SELECT> 
</TD> 

<TD VALIGN=BOTTOM ALIGN=CENTER> 
<BR> 

<SELECT NAME- \ " wage r\"> 

%if (%not (%equal (%wager%, %null%) ) , 

<OPTION VALUE-\"%wager%\">%wagerl Pts. 

<OPTION VALUE=\"\"> 

) 

<OPTION VALUE- " "> Wager 

<OPTION VALUE-"250">250 Pts. 

<OPTION VALUE="500">500 Pts. 

<OPTION VALUE="750">750 Pts. 

<OPTION VALUE-"1000">1000 Pts. 

</SELECT> 
</TD> </TR> 
<TR> 

<TD BGCOLOR-#C0C0C0 ALIGN—CENTER COLSPAN-2><B> Click on the Football to 
Submit your Pick </B></TD> 

<TD BGCOLOR-#C0C0C0 ALIGN-CENTER>%localtime (h:mm AA)</TD> 
</TR> 
</TABLE> 
<P> 

) 

%define (edit, 

%null(### START EDIT ###) 

<FORM METHOD-GET ACTION- "prof oot -verify . hmx"> 

<INPUT TYPE-HIDDEN NAME- "system" VALUE="InsideOdds"> 

<INPUT TYPE-HIDDEN NAME-"process" VALUE="EDIT"> 

<INPUT TYPE-HIDDEN NAME- "user info" VALUE="%f orm (userinf o) "> 

%gset (count, 1) %gset (recs, %f orm (records ) ) 

%varload ( ) %options ( ) 

%qset (error, %null%) %fail() 

4? 



%set(step, 1) 

%while (%lte (%step%, % form (records) ) , 

<INPUT TYPE-HIDDEN NAME=\ "pick%step% \ " VALUE=\" % form (pick! step! ) \ "> 
%set(step, %iadd(%step%, 1)) 

) 



%define (reviewpicks, 

%null(### START REVIEW PICKS ###) 
%expires: ( %iadd (%time%, %imult ( 60, 5) ) ) 
<CENTER> 

<H3>Please choose either the CANCEL or SUBMIT button below. <BR> 
Print this page if you would like a copy of your picks. </H3> 
</CENTER> 

<FORM METHOD-POST ACTION-"prof oot-verif y . hmx"> 
<INPUT TYPE-HIDDEN NAME= "system" VALUE="InsideOdds "> 
<TNPUT TYPE-HIDDEN NAME- "pro ce s s " VAL UE= " DONE P I CKS " > 
<INPUT TYP£=HIDDEN NAME="userinf o" VALUE="%f orm (user info) "> 
%gset(bets, 0) %gset (money, 0) 
%gset (recs, %f orm (records) ) 

%gset (number, %f orm (records ) ) %gset(step, 1) 
%while (%lte (%step%, %number%) , 
%pickload() %options() 

%gset(bets, %iadd (%bets% , 1}) %gset (money, %iadd(%money%, %wager%) ) 
%gset (error, %null%) %gset (hideteam, "NO") 
%gset (hidepick, "YES" ) %gset(temp, %step%) 
. %if (%and(%equal (%teaml%, %null%) , %equal (%type%, %null%) , %equal ( %optionl% , 
%null%), %equal (%team2% / %null%) f %equal ( %option2% , %null%) , %equal ( %wager% , 



%pass ( ) 

) 

%gset(step, %iadd(lstep%, 1)) 

) 

%varload( ) %options ( ) 

%gset(bets, %iadd ( %bets%, 1)) %gset (money, %iadd ( %money%, %wager%)) 
%gset (error, %null%) %gset (hideteam, "NO") %gset (hidepick, "YES") 
%gset(temp, %number%) %gset(temp, %iadd (%temp%, 1)) 
%pass ( ) 

%gset(recs, %iadd ( %recs%, 1)) %gset (ready, "NO") %gset(done, "YES") 
< TABLE BORDER=3 CELLPADDING-3 WIDTH-98%> 

<TRXTD VALI GN-CENTER ALIGN=CENTERXB>Total Picks: <FONT 
COLOR=#008000>%bets%</BX/FONTX/TD> 

<TD VALIGN=CENTER ALIGN-CENTERxB>Total Points Wagered: <F0NT 
COLOR-#003000>%money% </Bx/F0NTx/TDX/TR> 
</TABLE> 
<P> 

<INPUT TYPE-HIDDEN NAME- "records" VALUE-"%recs% "> 
< TABLE BORDER-3 CELLPADDING-3 WIDTH=98%> 
<TRXTD BGCOLOR=#00800Q ALIGN=CENTER> 

<INPUT TYPE=IMAGE NAME= "CANCEL " VALUE =" CANCEL these Picks" SRC-"cancel . gif " 
BORDER=0> 

<INPUT TYPE=IMAGE NAME-" SUBMIT" VALUE-" SUBMIT these Picks" SRC-"subrtlit . gif " 
BORDER-0> 

</TDX/TRX/TABLE> 
</FORM> 



%null%) ) , 



%gset (skip, "YES") 




Idefine (cancelpicks, 

%null{### START CANCEL PICKS ###) 
<CENTER> 

<H2>*** <FONT COLOR=#FF0000>Pick Session Canceled</FONT> ***<BR> 
<A HREF="profoot-pool.hmx">Return to Pick Pools</A><HR></H2> 
</CENTER> 

) 

%define (submitpicks , 

%null(### START SUBMIT PICKS ###) 

%gset (found, %exists (D: /CBuilder/data/odds/prof oot-picks . txt ) ) 
%if (%equal (%found%, %null%) , 

%copy (D: /CBuilder /data/ odds /prof oot-picks . bak, 
D : / CBuilder/data/odds/profoot spicks . txt ) 
) 

%set{user, %gettoken (%f orm (userinf o) , "#", 0} } 
%set(pool, %gettoken(%form(userinfo) , "#", 1)) 
<CENTER> 

<H2>Your picks have been submitted. </H2> 

<H3>*** <FONT COLOR=4FF0000>DO NOT RELOAD THIS PAGE !</ FONT > ***<BR> 

*** <FONT COLOR=#FF0000>IT WILL RE-SUBMIT YOUR PICKS ! </FONT> ***<HR></H3> 

<H2><A HREF="profoot-pool.hmx">Return to Pick Pools</A><HR></H2> 

</CENTER> 



%gset(bets / 0) Igset (money, 0) 
%gset(step, 1) 

%whiie (%lte (%step%, %form(records) ) , 
%pickload() %options() 
igset (temp, %step%) 
%if (%equal (%type%, 2) , 
%case ( 

%equal (%optionl%, 1) , 

%gset (spreadl, %fmt (%add(%spreadl%, 6) , 1, " . ) ) 
%if (%not (%equal (%left (%spreadl%, 1) , -) ) , 
%gset (spreadl, +%spreadl%) 

) 

r 

%equal (%optionl%, 3), %gset(ovunl, %fmt (%sub (%ovunl% , 6) , 1, ".",)) , 
%equal (%optionl%, 4), %gset(ovunl, %fmt ( %add ( %ovunl%, 6), 1, ".",)) 

) 

%case ( 

%equal (%option2%, 1) , 

%gset (spread2, %fmt (%add (%spread2%, 6) , 1, 11 , ) ) 
%if (%not (%equal (%left (%spread2% , 1) , -) ) , 
%gset (spread2, +%spread2%) 

) 

r 

%equal (%option2%, 3), %gset(ovun2, %fmt (%sub (%ovun2%, 6) , 1, ".",)) , 
%equal (%option2%, 4), %gset(ovun2, %fmt ( %add (%ovun2% , 6), 1, ".",)) 

) 

) 

%cs v- appendq (D: /CBuilder /data/odds /prof oot-picks .txt, %user%, %pool%, 
%type%, lwager%, %optionl%, %gameidl%, %teaml%, %spreadl%, %ovunl%, %option2%, 
%gameid2%, %team2%, %spread2%, %ovun2%) 

%gset(step, %iadd (%step% , 1)) 

) 



%case ( 

%not (%equal { % form ( CHECK . x ) , %null%) ) 
%not (%equal ( % form ( EDITONE . x ) , %null% 
%not (%equal (% form { FINISHED. x) , %null 
%not (%equal(%form(CANCEL.x) , %null%) 
%not (%equal (%form (SUBMIT. x) , %null%) 



, %maketeams() %verify(), 

)}, %ma ket earns ( ) %edit(), 

%)), %maketeams() %reviewpicks ( ) , 

) , %cancelpicks ( ) , 

), %maketeams() %submitpicks ( ) 



%if (%equal (%ready%, "YES" ) , 

<INPUT TYPE-HIDDEN NAME- "records " VALUE="%recs% "> 

<TABLE BORDER- 1 CELLPADDING-3 WIDTH-98%> 

<TR> 

%if (%and(%equal(%form(FINISHED.x) , %null%), %equal ( %f orm (VERIFY. x) , %null%), 
%equal(%f orm ( SUBMIT. x) , %null%) ) , 

<TD BGCOLOR-#008000 ALIGN=CENTER> 

<INPUT TYPE-IMAGE NAME* "EDITONE" SRC="editone . gif " BORDER=0x/TD> 

) 

<TD BGCOLOR=#008000 ALIGN=CENTER> 
%set(step, 1) 

%while(%lte(%step%, % form (records) ) , 

<INPUT TYPE-HIDDEN NAME-\"pick%step% \ " VALUE-\ "%f orm (pick%step% ) \ "> 
%set(step, %iadd(%step%, 1)} 

) 

<INPUT TYPE- IMAGE NAME- "FINISHED" SRC="f inished* gif " BORDER= Ox / TD>< / FORM> 

<TD BGCOLOR=#008000 ALIGN=C£NTER> 

<FORM METHOD-GET ACTION-"prof oot-f orm. hmx"> 

<INPUT TYPE-HIDDEN NAME-"system" VALUE="InsideOdds "> 

<INPUT TYPE-HIDDEN NAME-"process " VALUE- "ANOTHER" > 

<INPUT TYPE-HIDDEN NAME-"userinf o" VALUE="%f orm(userinf o) "> 

%set(recs, %iadd(%recs%, 1)) 

%if (%equal (%type%, 1) , 

<INPUT TYPE-HIDDEN NAME-X "pick%recs% \ " 
VALUE=\"%wager%#%type%#%optionl%#%gameidl%#%teaml%#%namel%#%spreadl%#%ovunl%#### 
##\"> 

<INPUT TYPE— HIDDEN NAME=\"pick%recs%\" 
VALUE=\"%wager%#%type%#%optionl%#%gameidl%#%teaml%#%namel%#%spreadl%#%ovunl%#%op 
tion2%#%gameid2%#%team2%#%name2%#%spread2%#%ovun2%\"> 
) 

%set(step, 1) 

%while(%lte(%step%, %form (records) ) , 

<INPUT TYPE-HIDDEN NAME=\ "pick%step% \ " VALUE=\ "%f orm (pick%step% ) \ "> 
%set(step, %iadd(%step%, 1)) 

) 

<INPUT TYPE-HIDDEN NAME- " records " VALUE- " % r e c s % " > 

<INPUT TYPE-IMAGE NAME- "ANOTHER" SRC="another . gif " BORDER— Ox /TDX/FORM> 
</TRX/TABLE> 

r 

<INPUT TYPE-HIDDEN NAME- "records" VALUE-" %recs%"> 

) 



<BRXBR> 
<CENTER> 

<A HREF="/index.html"xlMG SRC- "/home . gif " BORDER-" 0" WIDTH="83" 
HEIGHT="45"X/AXBR> 



St 



I <A HREF= "/index. html ">Home Page</A> | <A HREF=" index . html ">Members Only</A> | 

<A HREF= M profoot-pool.hmx">Pick Pools</A> i 

</CENTER> 



<HR> 
<P> 

<FONT SIZE="2"> 

Please note this web site and the information contained herein is for 
entertainment purposes only. Inside Odds is not responsible for any 
associated errors or omissions. Any questions or comments? Drop us a line at 
<A HREF="mailto : webmaster@insideodds . com">webmaster@insideodds . com</A> 
</FONT> 
</P> 

</BODY> 
</HTML> 

PPPPPP grp-prof oot-f orm.hmx 

<HTML> 
<HEAD> 

<BASE HREF="http : / /www . insideodds . com/members /"> 
<!— BASE HREF="http://localhost/ ,f — > 

<META NAME=" keywords " CONTENT- "Sport s , Football, NCAA, NFL, Basketball, NBA, 
Odds, Spreads, Line, Picks, Scores, Statistics, Win, Loss"> 
<TITLE>Inside Odds - Members Only - Pick Pools r 97</TITLE> 
</HEAD> 

<BODY BACKGROUND="back.gif " TEXT=4000000 BGC0L0R=#FFFFFF LINK=#0000FF 
VLINK=#OOO0FF ALINK=#FF0000> 

<! — Inside Odds Home Page Revision 3 — > 
<! — Author: Bret Strachan — > 

<! — Web Design: Andrew Ventura/Bret Strachan — > 
<! — Programming: Dave Anderson — > 

%gset (inc, D: /CBuilder/htdocs/odds/timing . inc) 

lexpand (%include (%inc%) ) 

%setDT() 

%if (%equal {%form( records) , %null%) , 

%gset (records, 0), %gset (records, % form (records ) ) 

) 

%define (showlogin, 

<F0RM METHOD-POST ACTION- "grp-prof oot-form. hmx"> 
<INPUT TYPE=HIDDEN NAME="system" VALUE="InsideOdds "> 
<INPUT TYPE=HIDDEN NAME= "process " VALUE= "LOGIN" > 
<H3>Make Picks for:</H3> 
<PRE> 

User Name... <INPUT TYPE=TEXT SIZE="30" MAXLENGTH— "25" NAME="userid"> 

Password <INPUT TYPE-PASSWORD SIZE="15" MAXLENGTH- "10" NAME="password"> 

<INPUT TYPE=SUBMIT VALUE-" SUBMIT "> 
</PRE> 
</F0RM> 



%def ine (showform, 

%gset (teamlist, %null%) 




%set (sqlstmt2, "SELECT * FROM Prof ootLine ORDER 3Y GamelD") 

%set (async-sql, T) 

%try( 

%sql (SportsTicker, %sqlstmt2%, 
%gset (spread, %null%) 

%if (%equal (%left ( %coiumn ( Spread) , 1) , -) , 

%gset (spread, Igettoken (%column (Spread) , "-", 0) ) 

%gset (homespread, -%spread%) %gset (awayspread, +%spread%) 

%gset (spread, %column (Spread) ) 

%gset (homespread, +%spread% ) %gset (awayspread, -%spread% ) 

) 

%if (%equal (%column (OverUnder) , 200,0), %gset (OvUn, 0,0), %gset(OvUn, 
% column (OverUnder) ) ) 
%checkone ( ) 

%if (lequal(%show%, "YES") , 

%gset (teamlist, %teamlist%<OPTION 
VALUE-\"%column (GamelD) #% column (HomelD) #%column (HomeName) #%homespread%#%OvUn%\"> 
%column (GamelD) :% column (HomeName) : %homespread% : %OvUn%%cr%) 

%gset (teamlist, %teamlist%<OPTION 
VALUE=\"%column (GamelD) #%column (AwaylD) #%column (AwayName) #%awayspread%#%OvUn% \ "> 
%column (GamelD) :% column (AwayName) : %awayspread% : IOvUn%%cr% ) 
) 

) 

<FORM METHOD-GET ACTION-"grp-prof oot-verif y . hmx"> 
<INPUT TYPE-HIDDEN NAME-" system" VALUE-" Ins ideOdds"> 
<INPUT TYPE-HIDDEN NAME="process " VALUE- "CHECK" > 
<INPUT TYPE=HIDDEN NAME="userinf o" VALUE=\ "luserinf o%\ n > 
<INPUT TYPE-HIDDEN NAME- " records " VALUE=\"%records%\"> 
%set(step r 1) 

%while ( %lte ( %step% , %records% ) , 

<INPUT TYPE-HIDDEN NAME=\"pick%step%\ " VALUE=\ "% f orm (pick%step% ) \ "> 
%set(step, %iadd(%step%, 1)) 

) 

<B>%userinfo%</B> 

<TABLE BORDER— 1 WIDTH=98%> 

<TRXTH COLSPAN«3>%proweek%</THX/TR> 

<TR> 

<TD COLSPAN-2 ALIGN=CENTER> 

<FONT COLOR=#008000XB>Pick Type : </BX/FONT> 

<INPUT TYPE-RADIO NAME-\ "type\ " VALUE-"!" CHECKED>Straight 

<INPUT TYPE-RADIO NAME-\ "type\" VALUE="2">Tease 

<INPUT TYPE=RADIO NAME-\ "type\ " VALUE="5">Parlay 

<INPUT TYPE-RADIO NAME- \ " t ype \ " VALUE="6">Reverse 
</TD> 

<TD ALIGN-CENTERXINPUT TYPE-IMAGE NAME=" CHECK" SRC="fball . gif " 
BORDER-OX /TD> 
</TR> 
<TR> 

<TD VALIGN-TOP ALIGN=CENTER> 

<INPUT TYPE-RADIO NAME-\"optionl\" VALUE-"1" CHECKED>Spread <INPUT 
TYPE-RADIO NAME-\"optionl\" VALUE="3">Over <INPUT TYPE=RADIO NAME=\"opt ionl\ " 
VALUE-"4">Under 

<SELECT NAME-\"teaml\"> 

<OPTION VALUE-" ">Select a Team 
%teamlist% 
</SELECT> 



</TD> 

<TD VALIGN=TOP ALIGN=CENTER> 

<INPUT TYPE=RADIO NAME=\ "opt ion2 \ ,T VALUE="1" CHECKED>Spread <INPUT 
TYPE=RADIO NAME=\"option2\" VALUE="3">0ver <INPUT TYPE=RADIO NAME-X "option2\" 
VALUE="4">Under 

<SELECT NAME=\"team2\"> 

<OPTION VALUE="">Tease/Parlay/Reverse Selection 

%teamlist% 
</SELECT> 
</TD> 

<TD VALIGN-BOTTOM ALIGN=CENTER> 
<BR> 

<SELECT NAME-\ "wager \"> 
<GPTION VALUE="">Wager 
<OPTION VALUE="250">250 Pts . 
<OPTION VALUE="500">500 Pts. 
<OPTION VALUE="750">750 Pts. 
<OPTION VALUE-"1000">1000 Pts. 
</SELECT> 
</TD> 
</TR> 

<TR> . _ _ 

<TD BGCOLOR=4C0C0C0 ALIGN=CENTER C0LSPAN=2><B> Click on the Football 

button to Submit your Pick </B></TD> 

<TD 3GCOLOR=#C0C0C0 ALIGN=CENTER>%showtime%</TD> 

</TR> 

</TABLE> 

</FORM> 

<H2xFONT COLOR=FF0000>ERROR Connecting to Game Database</F0NT></H2> 

<H3>Message : %exception-msg%</H3> 

<H3>Please contact <A 
HREF="mailto: webmaster@insideodds . com">webmaster@insideodds . com</A> 

immediately with this problem. <BR>Be sure to include the error message 
above.</H3> 
) 

) 

Idefine (notfound, 

<H2XF0NT COLOR=#FF0000>USER RECORD NOT FOUND !</ FONT ></H2> 

<B>Either your User Name does not exist or the Password you entered is 

incorrect . </BXBR> 
<P> 

<H2><A HREF="grp-profoot-form.hmx?NEW">Click here to try again</A></H2> 

) 

%def ine (validate, 

%set (sqlstmt, "SELECT * FROM Signup WHERE UserlD - %f orm (userid) AND 
Password = 1 %f orm (password) ™ ) 
%set (async-sql, T) 

%gset(uid, %null%) %gset(pass, %null%) 
%try ( 

%sql(IO Members, %sqlstmt%, 

%gset(uid, %column (UserlD) ) %gset(pass, %column (Password) ) 

%if (%equal (%num-rows () , 0) , 
%notfound( ) 



%set (async-sql, T) %gset (passed, %null%) 

%set(sqlstmt2, "SELECT * FROM Profile WHERE UserlD = ' %f orm (userid) ? " ) 
%try( 

%sql(IO Members, %sqlstmt2%, 

%if (%equal (% column (ProFoot Pick) , 1) , 

%gset (passed, "YES") %gset (pickpool, %column ( PickPool) ) 
%gset (userid, %column (UserlD) ) 
) 

) 

<FONT COLOR=FF0000>ERROR Connecting to Members Database<BR> 

Type: %exception-type% I %exception-msg%</FONT> 

Please contact <A 
HREF="mailto : webmaster@insideodds . com">webmaster@insideodds . com</A> 

immediately with this problem. <BR> Be sure to include the error 
message above. <P> 
) 

%if (%equal (%passed%, %null%), 

<H2XF0NT COLOR-#FF0000>You have not registered for access to this 

feature. </F0NTX/H2><P> 

<H3><FONT COLOR=#FF0000>If you believe you have received this message 

in error please<BR> 

contact system administration at </FONT> <A 
HREF-"mailto : webmaster@insideodds . com">webmaster@insideodds . com</Ax/H3> 

%gset (userinf o, %userid%#%pickpool% ) 
%showform() 

) 

) 

) 

<FONT COLOR=FF0000>ERROR Connecting to Members Database<BR> 
Type: %exception-type% I %exception-msg%</FONT> 

Please contact <A 
HREF="mailto:webmaster@insideodds.com">webmaster@insideodds.com</A> 

immediately with this problem. <BR> Be sure to include the error message 

above. <P> 

) 

) 

%case ( 

%equal (%f orm (process ) , %null%) , %showlogin ( ) , 

%equal (%form (process) , "LOGIN"), %validate ( ) , 

%equal (%f orm (process ) , "ANOTHER"), %showform() 

) 

<BRXBR> 
<CENTER> 

<A HREF="/index.html"XlMG SRC=" /home . gif " BORDER="0 " WIDTH-"83" 
HEIGHT="45"X/AXBR> 

| <A HREF-" /index. html ">Home Page</A> I <A HREF- "index . html ">Members Only</A> 1 

<A HREF="profoot-pool.hmx">Pick Pools</A> I 

</CENTER> 



<HR> 
<P> 

<FONT SIZE-"2"> 



Please note zhis web site and the information contained herein is for 
entertainment purposes only. Inside Odds is not responsible for any 
associated errors or omissions. Any questions or comments? Drop us a line at 
<A HREF="mailto:webmaster@insideodds.com">webmaster@insideodds.com</A> 

</FONT> 
</P> 

</BODY> 
</HTML> 

PPPPPP grp-profoot-verify.hmx 

<HTML> 
<HEAD> 

<BASE HREF="http : //www. insideodds . com/members/ "> 
<1 — BASE HREF="http: / /localhost/" ~> 

<META NAME= " keywords " CONTENT="Sports , Football, NCAA, NFL, Basketball, NBA, 
Odds, Spreads, Line, Picks, Scores, Statistics, Win, Loss"> 
<TITLE>Inside Odds - Members Only - Pick Pools ? 97</TITLE> 
</HEAD> 

<BODY BACKGROUND="back. gif " TEXT=#000000 BGCOLOR-* FFFFFF LINK=#0000FF 
VLINK=#0000FF ALINK=#FF0000> 

<!— Inside Odds Home Page Revision 3 — > 
<i — Author: Bret Strachan — > 

<t — w e b Design: Andrew Ventura/Bret Strachan — > 
<! — Programming: Dave Anderson — > 

%null (%enumform( 1 %name%=%value%<BR>%crlf % ) ) 
%gset (inc, D : /CBuilder /htdocs/ odds/timing . inc) 
lexpand ( %include { %inc% ) ) 
%setDT() 

<TABLE BORDER- 1 CELLPADDING=3 WIDTH=98%> 

<TRXTH BGCOLOR=#C0C0C0 C0LSPAN=3>%proweek%</TH></TR> 
</ TABLE > 

%define (maketeams, 

%gset (teamlist, %null%) %gset (gamenum, 0) 

%set(sqlstmt2, "SELECT * FROM ProfootLine ORDER BY GamelD") 

%set (async-sql, T) 

%try( 

%sql (SportsTicker, %sqlstmt2%, 

%gset (gamenum, %iadd ( %gamenum% , 1)) 
%gset ( spread, %null% ) 

%if (%equal(%left (%column (Spread) , 1), -), 

%gset (spread, %gettoken ( %column (Spread) , 0) ) 

%gset (homespread, -%spread%) %gset (awayspread, +%spread%) 

r 

%gset (spread, %column (Spread) ) 

%gset (homespread, +%spread%) %gset (awayspread, -%spread%) 

%if (%equal(%column(OverUnder) , 200.0), %gset(0vUn, 0.0), %gset (OvUn, 
%column (OverUnder) ) ) 
%checkone ( ) 

%if (%equal(%show%, "YES"), 



%gset (teamlist, %teamlist%<OPTION 
VALUE=V r %cclumn (GamelD) #% column (Home ID) #% column (HomeName) #%homespread%#%OvUn%\"> 
%column (GamelD) :% column (HomeName) : %homespread% : %OvUn%%cr% ) 

%gset (teamlist, %teamlist%<OPTION 
VALUE=\"%column {GamelD) #%column (AwaylD) #%column (AwayName) #%awayspread%#%OvUn%\ ?r > 
%column (GamelD) :% column (AwayName ) : %awayspread% : %OvUn%%cr% ) 



%if (%lt (%gamenum%, 10), %gset(num, 0%gamenum%), %gset(num, %gamenum%)) 
%gset (game%num%, 



%column (Date) #%column (Time) #%column (AwaylD) #%column (AwayName) #%awayspread%#%OvQn 
%#%column (HomelD) #% column (HomeName) #%homespread%#%OvUn% ) 
) 

) 

<H2><FONT COLOR=FF0000>ERROR Connecting to Game Database</FONT></H2> 

<H3>Message : %exception-msg%</H3> 

<H3>Please contact <A 
HREF="mailto : webmaster@insideodds . com">webmaster@insideodds . com</A> 

immediately with this problem. <BR>Be sure to include the error message 
above. </H3> 
) 



%def ine (varload, 

%gset (type, % form (type) ) %gset (wager, % form (wager) ) 

%gset (optionl, % form (opt ionl ) ) %gset (option2, % form (opt ion2 ) ) 

%gset (gameidl, %gettoken (%f orm (teaml) r "#", 0)) 

%gset (teaml, %gettoken (%f orm (teaml) , "#", 1)) 

%gset (namel, %gettoken (% form (teaml) , "#", 2)) 

%gset (spreadl, %gettoken ( %f orm (teaml ) , "#", 3)) 

%gset(ovunl, %gettoken (%f orm(teaml) , "#", 4)) 

%gset (gameid2, %gettoken (%f orm (team2 ) , "#", 0)) 

%gset(team2, %gettoken (%f orm (team2 ) , "#", 1)) 

%gset(name2, %gettoken (%f orm (team2 ) , "#", 2)) 

%gset (spread2, %gettoken ( %f orm (team2 ) , "#", 3)) 

%gset(ovun2, %gettoken (%f orm ( team2 ) , "#", 4)) 



%def ine (pickload, 

%gset (wager, %gettoken ( %f orm (pick%step% ) , "#", 0) ) 
%gset(type, %gettoken(%form(pick%step%) , ,r #", 1)) 
%gset (optionl, %gettoken (%form(pick%step%) , "#", 2) ) 
%gset (gameidl, %gettoken ( %f orm (pick%step% ) , "#", 3) ) 
%gset (teaml, %gettoken (%f orm (pick%step% ) , "#", 4) ) 
%gset (namel, %getroken ( %f orm (pick%step% ) , "#", 5) ) 
%gset (spreadl, %gettoken (%f orm (pick%step%) , "#", 6) ) 
%gset(ovunl, %gettoken ( %f orm (pick%step% ) , "#", 7)) 
%gset (option2, %gettoken ( %f orm (pick%step% ) , "#", 8) ) 
%gset (gameid2, %gettoken (%f orm(pick%step%) , "#", 9) ) 
%gset (team2, %gettoken ( %f orm (pick%step% ) , "#", 10) ) 
%gset(name2, %gettoken (%form(pick%step%) , "#", 11)) 
%gset (spread2, %gettoken (%form (pick%step% ) , "#", 12) ) 
%gset (ovun2, Igettoken (%f orm (pick%step% ) , "#", 13) ) 



%def ine (newload, 

%gset(type, %f orm (pick%step%type) ) %gset (wager, %f orm (pick%step%wager ) ) 
%gset (option!, %f orm (pick%step%optionl ) ) %gset (option2 , 
If orm (picklstep%option2 ) ) 

%gset (gameidl, %gettoken (%f orm ( pick! step% teaml ) , "#", 0) ) 
%gset (teaml, %gettoken (%form(pick%steplteaml) , M #", 1) ) 




%gset (namel, %gettoken (%f orm (pick%step%teaml ) , 2) ) 

%gset (spreadl, %gettoken ( If orm (pick%step%teaml ) , "#", 3) ) 
%qset (ovunl, %gettoken (%form (pick%step%teaml) , "#", 4) ) 
%gset {gameid2 <P %gettoken { %f orm (pick%step%team2 ) , "#", 0) ) 
%gset (team2, %gettoken ( %f orm (pick%step%team2) , "#", 1) ) 
%gset (name2, %gettoken (%form(pick%step%team2) , "#", 2) ) 
%gset (spread2 / %gettoken { %f orm (pick%step%team2 ) , "#", 3) ) 
%gset (ovun2, Igettoken (%f orm (pick%step%team2 ) , "#", 4) ) 

) 

%define (options, 

%gset (rdare, %gettoken ( %expand (% game % game idl%% ) , "#", 0) ) 
%gset (rtime, %gettoken ( ^expand (%game%gameidl%% ) , "#", 1)) 
Igset (rteaml, %gettoken(%expand(%game%gameidl%%) , "#", 2)) 
%gset (rnamel, %gettoken (%expand (%game%gameidl%% ) , "#", 3)) 
%if (lequal (%teaml%, %null%) , %gset (namel, %rnamel%) ) 
%gset (rspreadl, %gettoken {%expand (%game%gameidl%% ) , "#", 4)) 
%if (%equal (%teaml% / %null%) , %gset (spreadl, %rspreadl%) ) 
jjvi %gset (rovunl, %gettoken (%expand (%game%gameidl%%) , "#", 5)) 

fj| lif (lequal (%teaml%, %null%), Igset (ovunl, %rovunl%) ) 

K %gset (rteam2, %gettoken(%expand(%game%gameidl%%) , "#", 6)) 

1% %gset (rname2, %gettoken (%expand ( %game%gameidl%% ) , "#", 7)) 

%if (%equal (%team2%, %null%), %gset(name2, %rname2%)) 
f* ; %gset (rspread2, %gettoken (%expand ( %game%gameidl%%) , "#", 8) ) 

f ; * %gset (rovun2, %gettoken ( If orm (game%gameidl% ) , "#", 9)} 

W 

tfil %gset(sdate, %gettoken ( %expand (%game%gameid2%% ) , "#", 0)) 

* %gset (stime, %gettoken (%expand (% game % game id2%%) , "#", 1)) 

Q %gset (steaml, %gettoken(%expand(%game%gameid2%%) , "#", 2)) 

k£ %gset (snamel, %gettoken ( %expand ( %game%gameid2%% ) , "#'\ 3)) 

jfy %gset (sspreadl, %gettoken (lexpand (%game%gameid2%%) , "#", 4) ) 

l\l %gset (sovunl, %gettoken (%expand(%game%gameid2%%) , "#", 5)) 

K| Igset (steam2, %gettoken (%expand ( %game%gameid2%% ) , "#", 6)) 

JK Igset (sname2, %gettoken (lexpand (%game%gameid2%% ) , "#", 7)} 

• m %gset (sspread2, %gettoken (%expand (%game%gameid2%% ) , "#", 8) ) 

%gset (sovun2, %gettoken (%expand{%game%gameid2%% ) , "#", 9) ) 

%case ( 

%equal (%type%, 1), 

%gset (showtype, "STRAIGHT" ) 

%gset (win, %wager%) %gset (loss, %fmt (%mult (%wager%, -1. 1) , 0, , ) } 

%equal (%type%, 2) , 

%gset (showtype, "TEASE") 

%gset (win, %wager%) %gset(loss, %fmt (%mult (%wager%, -1 . 2 ) ,0, , ) ) 

r 

%equal (%type% , 5), 

%gset (showtype, "PARLAY") 

%gset(win, %fmt (%mult (%div (%wager%, 5), 12), 0,,)) %gset(loss, 
%fmt (%mult (%wager%,-1.0) ,0, , ) ) 
f 

%equal (%type%, 6) , 

%gset (showtype, "REVERSE") 

Agset (win, %fmt (%mult (%wager%, 4) , 0, , ) ) 

%gset(loss, "<FONT COLOR=#008000> (miss l)</FONT> ") 

%gset (lossl, ifmt (%mult ( %wager%, -1,2) , 0, , ) ) 

%gset (loss, %concat (%loss%, %lossl%) ) 

%gset (loss2, %fmt (%mult (%wager%, -2. 4) ,0, , ) ) 

Igset (loss, %concat (%loss%, " Pts. / ")) 



%gset(loss, %concat ( %loss% , "<FONT COLOR=#008000> (miss both)</FONT> »)) 
%gset (loss, %concat (%loss%, %loss2%) ) 

) 

%if (%equal(%type%, 2), 
%case( 

%equal(%optionl%, 1), %gset (showspreadl, %spreadl%) %gset ( showspreadl , 
%fmt (%add(%showspreadl%, 6) , 1, " . ", ) ) 

%if (%not (%equal(%left (%showspreadl%, 1), -) ) , 
%gset ( showspreadl , +%showspreadl% ) 

%gset (showspreadl, %concat ( %showspreadl% , "*") ) 

%equal(%optionl%, 3), %gset (showovunl, %ovunl%) %gset (showovunl, 
%fmt(%sub(%showovunl%, 6),1, ".",)) %gset (showovunl, %concat (%showovunl% / "*")), 

%equal(%optionl%, 4), %gset (showovunl, %ovunl%) %gset ( showovunl , 
%fmt(%add(%showovunl%, 6), 1, ".",)) %gset (showovunl, %concat (%showovunl%, "*") ) 
) 

lease ( 

%equal(%option2%, 1), %gset { showspread2 , %spread2%) %gset (showspread2, 
%fmt (%add(%showspread2%, 6) , 1, " . ", ) ) 

%if (%not (%equal (%left (%showspread2%, 1), -)), 
%gset (showspread2, +%showspread2% ) 

%gset (showspread2, %concat (%showspread2%, "*") ) 

%equal(%option2%, 3), %gset ( showovun2 , %ovun2%) %gset {showovun2 , 
%fmt(%sub(%showovun2%, 6) ,1, ".",)) %gset (showovun2, %concat ( %showovun2% , "*")), 

%equal(%option2%, 4), %gset (showovun2, %ovun2%) %gset (showovun2, 
%fmt(%add(%showovun2%, 6), 1, ".",)) %gset (showovun2 , %concat ( %showovun2%, "*")) 
) 

%gset (showsoreadl, %spreadl%) %gset (showspread2, %spread2%) 
%gset (showovunl, %ovunl%) %gset (showovun2 , %ovun2%) 

) 

) 

%define (verify, 

%null(### START VERIFY ###) 

<FORM METHOD-GET ACTION="grp-prof oot-verif y . hmx"> 

<INPUT TYPE-HIDDEN NAME- "system" VALUE="InsideOdds"> 

<INPUT TYPE-HIDDEN NAME= "process " VALUE="VERIFY"> 

<INPUT TYPE-HIDDEN NAME-"userinf o" VALUE-"%f orm (userinf o) "> 

%gset(hidepick, "NO") %gset (hideteam, "YES") %gset (ready, "YES") 

%gset(recs, %form (records ) ) %gset (number, % form ( records ) ) 

%gset(temp, %iadd (%number%, 1)) 

%varload() %options ( ) %checkdata() 

%if (%and(%equal(%error%, %null%), %equal (%skip%, "NO")), 
%pass ( ) 

%if (%not (%equal (%error%, %null%) ) , 
%fail() 

) 

) 

%if (%equal(%errors%, "YES") , 
%set(step, 1) 

%while(%lte(%step%, %form(records) ) , 

<INPUT TYPE-HIDDEN NAME=\"pick%step%\ " VALUE=\"%f orm (pick%step% ) \"> 
%set(step, %iadd(%step%, 1)) 



) 

%if (%equal(%skip%, "YES"), 

<CENTERXH2>N0 PICK SELECTED< / H2 >< / CENTER> 
%gset (ready, "NO") 

%gset (ready, "YES" ) 

) 

) 

) 

%def ine (checkdata, 

%null(### START CHECKDATA ###) 

%gset(skip, "NO") %gset (error, %null%) %gset(skip, "NO") 
%checktwo ( ) 

%if (% equal (%showl%, "NO"), . 
%gset (error, %error% <FONT COLOR=#FF0000>*** Selected game started @ %rtime% 

***</FONTXBR>) 

%if (%and(%not(%equal(%team2%, %null%) ) , %equal ( %show2% , "NO")), 

%gset (error, %error% <FONT COLOR=#FF0000>*** Selected game started @ %si:ime% 
***</FONTXBR>) 
) 

%if (%equal(%type%, 999), 

%gset(skip, "YES") %gset(recs, %isub (%recs%, 1) ) 

%if (%and(%equal(%teaml%, %null%), %equal (%type%, %null%), %equal (%optionl%, 
%null%), %equal(%team2%, %null%), %equal ( %option2% , %null%), %equal (%wager%, 
%null%) ) , 

%gset(skip, "YES") 

%if (%and(%equal(%teaml%, %null%), %equal (%type%, 1), %equal (%optionl%, 1), 
%equal(%team2%, %null%), %equal (%option2% , 1), %equal (%wager%, %null%)), 
%gset(skip, "YES" ) 

%if (%or(%equal (%optionl%, 3), %equal (%optionl%, 4)), 
%if (%equal (%ovunl%, 0.0), 

%gset (error, %error% <FONT COLOR=#FF0000>*** Las Vegas has not set an 
Over/Under for this game ***</FONTXBR>) 
) 

%if (%or (%equal (%option2%, 3), %equal (%option2%, 4)), 
%if (%equal (%ovun2%, 0.0), 

%gset (error, %error% <FONT COLOR=#FF0000>*** Las Vegas has not set an 
Over/Under for this game ***</FONTXBR>) 
) 

) 

%if (%equal (%wager%, %null%), 

%gset (error, %error% <FONT COLOR=#FF0000>*** Must choose a wager for tms 

pick ***</FONTXBR>) 

) 

%if (%equal (%teaml%, %null%), 

Igset (error, %error% <FONT COLOR=#FF0000>*** Must choose a team from the 
first drop down box for this pick ***</FONTXBR» 

%if (%and(%equal(%type%, 1), %not (%equal (%team2% , %null%))), 

%gset (error, %error% <FONT COLOR=#FF0000>*** Must choose a team ONLY from 
the first drop down box ***</FONTXBR>) 



to 



%if (%or (%equal (%type%, 2), %equal ( %type% , 5), %equal ( %type% , 6)), 
%if (%equal (%team2%, %null%) , 

%gset (error, %error% <FONT COLOR=#FF0000>*** Must choose a team in both 
drop dowr/boxes for this pick ***</FONTXBR>) 

%if (%and(%equal(%gameidl%, %gameid2%) , %not (% equal (%teaml%, %team2%)), 

%equal (%optionl%, %option2%) ) , 

%gset (error, %error% <FONT COLOR~#FF0000>*** Pick options CANNOT be 
identical if the teams in the drop down boxes are playing each other 
***</FONTXBR>) 

%if (%and(%equal(%gameidl%, %gameid2%) , %equal (%teaml% f %team2%), 

%equal (%optionl%, %option2%) ) , 

%gset (error, %error% <FONT COLOR=#FF0000>*** Pick options CANNOT be 
identical if the teams in the drop down boxes are the same ***</FONTXBR» 

) 

) 

) 

) 

%def ine (pass, 

%null(### START PASS ###) 

<TABLE B0RDER=1 CELLPADDING=3 WIDTH=98%> 

%if (%equal (%type%, 1), n 

<TR><TD C0LSPAN=3XB>%showtype% Pick</B> <FONT COLOR=#008000XB>%wager% 
Pts.</BX/FONT> [Hit = <B>+%win% Pts.</B> | <FONT COLOR-#FF0000>Miss - <B>%loss% 

Pts . </BX/FONT>] </TDX/TR> 

<TRXTD> (%rname2%/%rnamel%) </TD> 

%case ( 

%equai(%optionl%, 1), <TD ALIGN=CENTER><FONT 
COLOR»#008000xB>%namel%</BX/FONTX/TDXTD ALIGN=CENTER>Spread = <FONT 
COLOR«#008000xB>%spreadl%<BX/FONT> , 

3equai(%optionl%, 3), <TD ALIGN=CENTERXFONT 
COLOR=#008000XB>Over</BX/FONTX/TDXTD ALIGN=CENTER>Over /Under - <FONT 
COLOR=#008000xB>%ovunl%</BX/FONT> , 

%equal(%optionl%, 4), <TD ALIGN=CENTERXFONT 
COLOR=#008000XB>Under</BX/FONTX/TDXTD AL I GN=CENTER>Ove r / Under = <FONT 
COLOR=#008000XB>%ovunl%</BX/FONT> 

) 

%if (%or (%equal(%type%, 2), %equal {%type%, 5), %equal (%type%, 6)), 

<TRXTD C0LSPAN=4XB>%showtypel Pick</B> <FONT COLOR=#008000xB>%wager% 
Pts.</BX/FONT> [Hit - <B>+%win% Pts.</B> I <FONT COLOR=#FF0000>Miss = <B>%loss% 
Pts.</Bx/FONT>] %if (%or (%equal (%type%, 2), % equal (% type % , 5)), <FONT 
COLOR=#008000XBR>*<B>You must hit both games to Hit this 
pick</B>*</FONT>) </TDX/TR> 

<TRXTD >(%rname2%/%rnamel%)</TD> 

%case ( 

%equal(%optionl%, 1), <TD ALIGN-CENTERXFONT 
COLOR=#008000XB>%namel%</BX/FONTX/TDXTD ALIGN=CENTER >Spread = <FONT 
COLOR=#008000xB>%showspreadl%<BX/FONTX/TDXTD ALIGN=CENTER > <B>AND</B> </TD> 

%eaual{%optionl%, 3), <TD ALIGN-CENTERXFONT 
COLOR=#008000XB>Over</B></FONTX/TDXTD ALIGN=CENTER >Over/Under - <FONT 
COLOR=#008000XB>%showovunl%</BX/FONTX/TDXTD ALIGN=CENTER > <B>AND</B> </TD> 



%equal(%optionl%, 4), <TD ALIGN=CENTERXFONT 
COLOR=#008000XB>Under</BX/FONTX/TDXTD ALIGN=CENTER >Over/Under = <FONT 
COLOR=#008000XB>%showovunl%</BX/FONTX/TDXTD ALIGN=CENTER > <B>AND</B> </TD> 

) 

<TRXTD > (%sname2%/%snamel%)</TD> 
%case ( 

%equal(%option2%, 1), <TD ALIGN=CENTER XFONT 
COLOR=#008000XB>%name2%</BX/FONTX/TDXTD ALIGN=CENTER >Spread = <FONT 
COLOR=#008000XB>%showspread2%<BX/FONTX/TDXTD ALIGN=CENTER > - , 

%equal(%option2%, 3), <TD ALIGN-CENTER XFONT 
COLOR=#008000xB>Over</BX/FONTX/TDXTD ALIGN=CENTER >Over/Under = <FONT 
COLOR=#008000xB>%showovun2%</BX/FONTX/TDXTD ALIGN-CENTER > - , 

%equal(%option2%, 4), <TD ALIGN=CENTER XFONT 
COLOR=#008000><B>Under</BX/FONTX/TDXTD ALIGN=CENTER >Over/Under = <FONT 
COLOR=#008000XB>%showovun2%</BX/FONTX/TDXTD ALIGN=CENTER > - 

) 

) 

) 

%if (%equal(%hideteam%, "YES"), 

<INPUT TYPE=HIDDEN NAME=\ "type\ " VALUE=\"%type%\"> 
<INPUT TYPE=HIDDEN NAME=\"wager\" VALUE=A"%wager%\"> 
<INPUT TYPE=HIDDEN NAME=\"optionl\" VALUE=\"%optionl%\"> 
<INPUT TYPE=HIDDEN NAME=\"option2\" VALUE=\"%option2%\"> 
<INPUT TYPE=HIDDEN NAME= \ " t e ami \ " VALUE=\" %f orm ( teaml ) \ "> 
<INPUT TYPE=HIDDEN NAME=\"team2\" VALUE=\ "%f orm ( team2 ) \ "> 

) 

%if (%equal(%hidepick:%, "YES") , 
%if <%equal (%type%, 1) , 

<INPUT TYPE=HIDDEN NAME=\ "pick%temp%\" 
VALUE=\"%wager%#%type%#%optionl%#%gameidl%#%teaml%#%namel%#%spreadl%#%ovunl%#### 

##\"> 

<INPUT TYPE=HIDDEN NAME=\ "pick%temp%\ " 
VALUE=\"%wager%#%type%#%optionl%#%gameidl%#%teaml%#%namel%#%spreadl%#%ovunl%#%op 

tion2%#%gameid2%#%team2%#%name2%#%spread2%#%ovun2%\"> 
) 

) 

</TDX/TR> 
</TABLEXBR> 

) 

%def ine (fail, 

%null(### START FAIL ###) 
%gset (ready, "NO") %gset (errors , "YES") 
<TABLE BORDER=l CELLPADDING=3 WIDTH=98%> 
%if (%not (%equal(%error%, %null%) ) , 

<TRXTD COLSPAN=3 ALIGN=CENTER> %error% </TDX/TR> 

) 

<TR> 

<TD COLSPAN=2 ALIGN=CENTER > 

<FONT COLOR=#008000XB>Pick Type : </BX/FONT> 

<INPUT TYPE=RADIO NAME-\ "type\ " VALUE-\"1\" % if ( %equal ( % type% , 1), 
CHECKED) >Straight 

<INPUT TYPE=RADIO NAME=\ "type\" VALUE-\"2\" %if ( %equal { %type« , 2), 

CHECKED) >Tease 

<INPUT TYPE-RADIO NAME=\ " type\ " VALUE=\"5\" %if ( %equal ( %type* , 5), 
CHECKED) >Parlay 



<INPUT TYPE-RADIO NAME=\"type\" VALUE-\"6\" %if (%equal { %type% , 6), 
CHECKED) >Reverse 
</TD> 

<TD ALIGN-CENTER XINPUT TYPE-IMAGE NAME="CHECK" SRC="fball . gif 
BORDER=0></TD> 
</TR> 
<TR> 

<TD VALIGN=TOP ALIGN-CENTER > 

<INPUT TYPE-RADIO NAME=\ "optionlV VALUE-"!" %if { %equal ( %optionl% , 1) , 
CHECKED) >Spread <INPUT TYPE-RADIO NAME=\"optionl\" VALUE-"3" 
%if (%equal(%optionl%, 3), CHECKED) >Over <INPUT TYPE-RADIO NAME-\"optionl\" 
VALUE-"4" %if (%equal (%optionl%, 4), CHECKED) >Under 

<SELECT NAME-\"teaml\"> 

%if (%not (%equal (%teaml%, %null%) ) , 

<OPTION io „ 

VALUE=\"%gameidl%#%teaml%#%namel%#%spreadl%#%ovunl%\">%gameidl%:%namel^:^spreadl 

% : %ovunl% 

<OPTION VALUE-\"\"> 

) 

<OPTION VALUE=\"\">Select a Team 
%teamlisT:% 
</SELECT> 
</TD> 

<TD VALIGN=TOP ALIGN-CENTER > 

<INPUT TYPE-RADIO NAME- \" opt ion2\" VALUE-"1" %if ( %or ( %equal ( %option2% , 1), 
%equal(%option2%, %null%)), CHECKED) >Spread <INPUT TYPE-RADIO NAME=\ "opt ion2\" 
VALUE-"3" %if (%equal(%option2%, 3), CHECKED) >Over <INPUT TYPE-RADIO 
NAME=\"option2\" VALUE="4" % if ( %equal ( %option2% , 4), CHECKED) >Under 

<SELECT NAME=\"team2\"> 

%if (%not (%equal (%team2%, %null%) ) , 

<OPTION oo JO 

VALUE-\"%gameid2%#%team2%#%name2%#%spread2%#%ovun2%\">%gameid2%:%name2^:^spread2 

% : %ovun2% 

<OPTION VALUE=\"\"> 

) 

<OPTION VALUE-" ">Tease/Parlay/Reverse Selection 
%teamlist% 
</SELECT> 
</TD> 

<TD VALIGN-BOTTOM ALIGN-CENTER> 
<BR> 

<SELECT NAME- \ " wage r \ " > 

%if (%not (%equal (%wager%, %null%) ) , 

<OPTION VALUE=\"%wager%\">%wager% Pts. 

<OPTION VALUE=\"\"> 

) 

<OPTION VALUE-" ">Wager 

<OPTION VALUE-"250">250 Pts. 

<OPTION VALUE="500">500 Pts. 

<OPTION VALUE="750">750 Pts. 

<OPTION VALUE="1000">1000 Pts. 

</SELECT> 
</TD> </TR> 
<TR> 

<TD BGCOLOR=#C0C0C0 ALIGN-CENTER COLSPAN-2><B> Click on the Football to 

Submit your Pick </BX/TD> 

<TD BGCOLOR-#C0C0C0 ALIGN=CENTER>%localtime (h:mm AA)</TD> 



</TR> 

</TABLE> 

<P> 



%def ine (edit, 

%null(### START EDIT ###) 

<FORM METHOD-GET ACTION="grp-prof oot-verif y . hmx"> 

<INPUT TYPE-HIDDEN NAME=" system" VALUE- " Ins ideOdds " > 

<INPUT TYPE^HIDDEN NAME= "process" VALUE="EDIT"> 

<INPUT TYPE=HIDDEN NAME-" user info" VALUE="%f orm (userinf o ) "> 

%gset (count, 1) %gset(recs, % form (records) ) 

Ivarload ( ) %options ( ) 

%gset (error, %null%) %fail() 

%set(step, 1) 

%while (%lte (%step% , If orm (records ) } , 

<INPUT TYPE=HIDDEN NAME=\"pick%step% \ " VALUE-\"%form (pick%step%) \"> 
%set(step, %iadd(%step%, 1)) 

) 

) 

%define (reviewpicks , 

%null{### START REVIEW PICKS ###} 
lexpires: (%iadd(%time%, %imult {60, 5) ) ) 
<CENTER> 

<H3>Please choose either the CANCEL or SUBMIT button below. <BR> 
Print this page if you would like a copy of your picks. </H3> 
</CENT£R> 

<FORM METHOD-POST ACTION="grp-prof oot-verif y . hmx"> 
<INPUT TYPE=HIDDEN NAME="system" VALUE="InsideOdds "> 
<INPUT TYPE=HIDDEN NAME- "process " VALUE="DONEPICKS"> 
<INPUT TYPE=HIDDEN NAME="userinf o" VALUE="%f orm (userinf o) "> 
%gset(bets, 0) %gset (money, 0) 
%gset (recs, %f orm (records) ) 

%gset (number , If orm (records) ) %gset(step, 1) 
%while(%lte(%step%, %number%) , 
%pickload ( ) %options ( ) 

%gset(bets, %iadd(%bets%, 1)) %gset (money, %iadd (%money%, %wager%)) 
%gset (error, %null%) %gset (hideteam, "NO") 
%gset (hidepick, "YES") %gset(temp, %step%) 

%if (%and(%equal (%teaml%, %null%), %equal (%type% , %null%), %equal (%optionl%, 
%null%), %equal (%team2%, %null%) , %equal ( %option2% , %null%) / %equal (%wager% , 
%null%) ) , 

%gset(skip, "YES") 

%pass ( ) 

) 

%gset(step, %iadd (%step%, 1)) 

) 

%varload() %options() 

%gset(bets, %iadd (%bets% , 1)) %gset (money, %iadd (%money%, %wager%) ) 
%gset (error, %null%) %gset (hideteam, "NO") Igset (hidepick, "YES") 
%gset (temp, %number%) %gset (temp, %iadd (% tempi , 1)) 
%pass ( ) 

lgset(recs, %iadd (%recs%, 1)) %gset (ready, "NO") %gset(done, "YES") 
<TABLE BORDER- 3 CELLPADDING-3 WIDTH=98%> 

<TRXTD VALIGN=CENTER ALIGN=CENTERXB>Total Picks: <FONT 
COLOR=#008000>%bets%</BX/FONTX/TD> 




<TD VALIGN=CENTER ALIGN=CENTERXB>Total Points Wagered: <FONT 
COLOR=#008000>%money% </B></FONTX/TDX/TR> 
</TABLE> 
<P> 

<INPUT TYPE=HIDDEN NAME*" records" VALUE="%recs% "> 
<TABLE B0RDER=3 CELLPADDING=3 WIDTH=98%> 
<TRXTD BGCOLOR=#008000 ALIGN=CENTER> 

<INPUT TYPE=IMAGE NAME= " CANCEL " VALOE= " CANCEL these Picks" SRC="cancel . gif " 

BORDER=0> ' „ ^ 

<INPUT TYPE=IMAGE NAME= " SUBMIT " VALUE="SUBMIT these Picks" SRC= submit . gif 

BORDER=0> 

</TDX/TRX/TABLE> 
</FORM> 



%def ine (cancelpicks, 

%null(### START CANCEL PICKS ###) 
<CENTER> 

<H2>*** <FONT COLOR-#FF0000>Pick Session Canceled</FONT> ***<BR> 
<A HREF="profoot-pool.hmx">Return to Pick Pools</AXHRX/H2> 
</CENTER> 



%define (submitpicks, 

%nuil{### START SUBMIT PICKS ###) 

%gset (found, %exists (D : /CBuiider/ data/ odds /prof oot-picks . txt ) ) 

%if (%equal (%found%, %null%) , 

%copy(D: /CBuilder/data/odds/prof oot-picks .bak, 
D : /CBuilder/data/odds/prof oot-picks . txt) 

%set(user, %gettoken ( %f orm (userinf o) , "#", 0)) 
%set(pool, %gettoken (%f orm (userinf o) , "#", D) 
<CENTER> 

<H2>Your picks have been submitted. </H2> 

<H3>*** <F0NT COLOR=#FF0000>DO NOT RELOAD THIS PAGE 1 </FONT> ***<BR> 

*** <FONT COLOR=#FF0000>IT WILL RE-SUBMIT YOUR PICKS ! </FONT> ***<HRX/H3> 

<H2XA HREF="profoot-pool.hmx">Return to Pick Pools</AXHRX/H2> 

<H2XA HREF="grp-profoot-form.hmx">Enter another User's Picks</A><HRX/H2> 
</CENTER> 

%gset(bets, 0) %gset (money, 0) 
%gset(step, 1) 

%while (%lte (%step%, %f orm {records ) ) , 
%pickload ( ) %options ( ) 
%gset (temp, %step%) 
%if (%equal (%type%, 2) , 
%case ( 

%equal (%optionl%, 1) , 

%gset (spreadl, %fmt (%add(%spreadl%, 6) , 1, ".",)) 
%if (%not (%equal(%left (%spreadl%, 1) , -) ) , 
%gset (spreadl, +%spreadl%) 

) 

%equal(%optionl%, 3), %gset(ovunl, %fmt (%sub (%ovunl%, 6) , 1, ".",)) , 
%equal (%optionl%, 4), %gset(ovunl, %fmt (%add (%ovunl% , 6), 1, ".",)) 

) 




%case ( 

%equal (%option2%, 1) , 

%gset (spread2, %fmt (%add (%spread2% , 6) , 1, ", ) ) 
%if (%not (%equal(%left (Ispread2%, 1), -) ) , 
%gset (spread2 f +%spread2%) 

) 

%equal (%option2%, 3), %gset(ovun2, %fmt (%sub ( %ovun2% , 6) , 1, ".",)) , 
%equal (%option2%, 4), %gset (ovun2 , %fmt ( %add ( %ovun2% , 6) J,".",)) 

) 

%csv-appendq(D: /CBuilder/data/odds/prof oot-picks . txt, %user%, %pool%, 
%type% / %wager%, %optionl%, %gameidl%, %teaml% / %spreadl%, %ovunl%, %option2%, 
%gameid2%, %team2%, %spread2%, %ovun2%) 

%gset(step, %iadd ( %step% , 1)) 

) 

)■ 

lease { 

%not (%equal (%form (CHECK. x) , %null%) ) , 
%not ( % equal { % form ( EDITONE . x) , %null%)) f 
%not (%equal(%form(FINISHED.x) , %null%) ) , 
%not (% equal (%form (CANCEL. x) , %null%) ) , 
%not (%equal (%form(SUBMIT.x) , %null%) ) , 



%if (%equal(%ready%, "YES"}/ 

<INPUT TYPE-HIDDEN NAME=" records " VALUE="%recs% "> 

<TABLE B0RDER=1 CELLPADDING=3 WIDTH=98%> 

<TR> 

%if (%and(%equal(%form(FINISHED.x) , %null%), % equal ( %f orm (VERIFY. x) , %null%), 
%equal(%form(SUBMIT.x) , %null%) ) , 

<TD BGCOLOR=#008000 ALIGN=CENTER> 

<INPUT TYPE=IMAGE NAME="EDITONE" SRC-"editone . gif " BORDER=0></TD> 

) 

<TD BGCOLOR=#008000 ALIGN=CENTER> 
%set(step f 1) 

%while (%lte (%step%, %form (records ) ) , 

<INPUT TYPE-HIDDEN NAME=\"pick%step%\" VALUE=\"%f orm (pick%step% ) \"> 
%set(step, %iadd(%step%, 1)) 

<INPUT TYPE-IMAGE NAME-" FINISHED" SRC="f inished . gif " BORDER=0></TDX/FORM> 

<TD BGCOLOR-#008000 ALIGN=CENTER> 

<FORM METHOD-GET ACTION="grp-prof oot-form. hmx"> 

<INPUT TYPE=HIDDEN NAME="system" VALUE="InsideOdds "> 

<INPUT TYPE=HIDDEN NAME="process" VALUE= " ANOT HER " > 

<INPUT TYPE=HIDDEN NAME="userinf o" VALUE="%f orm (userinf o) "> 

%set(recs, %iadd (%recs% , 1)) 

%if (%equal (%type%, 1} , 

<INPUT TYPE=HIDDEN NAME=\ "picklrecs%\" 
VALUE=\"%wager%#%type%#%optionl%#%gameidl%#%teaml%#%namel%#%spreadl%#%ovunl%#### 

##\"> 
f 

<INPUT TYPE-HIDDEN NAME=\ "pick%recs%\ " 
VALUE-\"%wager%#%type%#%optionl%#%gameidl%#%teaml%#%namel%#%spreadl%#%ovunl%#%op 

tion2%#%gameid2%#%team2%#%name2%#%spread2%#%ovun2%\"> 



%maketeams ( ) %verif y ( ) , 
%maketeams ( ) %edit ( ) , 
%maketeams ( ) %reviewpicks ( ) , 
%cancelpicks ( ) , 
%maketeams ( ) %submitpicks ( ) 



%set(step, 1) 

%while(%lte(%step%, %form (records ) ) , 

<INPUT TYPE-HIDDEN NAME— \ "pick%step% \ 11 VALUE-X "%f orm (pick%step% ) \ "> 
%set(step, %iadd(%step%, 1)) 

) 

<INPUT TYPE-HIDDEN NAME=" records " VALUE- " %recs % "> 

<INPUT TYPE-IMAGE NAME- "ANOTHER" SRO"another . gif " BORDER=0x/TDX/FORM> 
</TRX/TABLE> 

<INPUT TYPE=HIDDEN NAME- " records " VALUE-"%recs% "> 



<A HREF-" /index. html "XIMG SRC- " /home . gif " BORDER- "0" WIDTH-"83" 
HE I GHT-" 45" X / AXBR> 

| <a HREF-"/index.html">Home Page</A> I <A HREF-" index . html" >Members Only</A> | 

<A HREF="profoot-pool.hmx">Pick Poois</A> I 

</CENTER> 

<HR> 
<P> 

<FONT SIZE-"2"> 

Please note this web site and the information contained herein is for 
entertainment purposes only. Inside Odds is not responsible for any 
associated errors or omissions. Any questions or comments? Drop us a line at 
<A HREF-"mailto : webmaster@insideodds . com">webmaster@insideodds . com</A> 
</FONT> 
</P> 

</BODY> 
</HTML> 

PPPPPP group. hmx 

<HTML> 
<HEAD> 

<BASE HREF="http : / /www . insideodds . com/signup/ "> 
<j — BASE HREF="http: //localhost/ signup/" — > 

<META NAME- "keywords" CONTENT="Sports, Football, NCAA, NFL f Basketball, NBA, 
Odds, Spreads, Line, Picks, Scores, Statistics, Win, Loss"> 
<TITLE>Inside Odds - Group Sign-up</TITLE> 
</HEAD> 

<BODY BACKGROUND- "back. gif " TEXT-#000000 BGCOLOR— # FFFFFF LINK-#OO00FF 
VLINK=#0000FF ALINK=#FF0000> 

<! — Inside Odds Home Page Revision 3 — > 
<! — Author: Bret Strachan — > 

<!-- Web Design: Andrew Ventura/Bret Strachan — > 
<! — Programming: Dave Anderson — > 

%null ( %enumf orm ( f %name%-%value%<BR>%crlf % ) } 

%def ine (showform, 

<H2XIMG SRC-'Vfball.gif "> Group Sign-up <IMG SRC-"/fball . gif "><HR></H2> 



<BRXBR> 
<CENTER> 




<PRE> 
User Name 



%uid% 



<B>Please verify the following information: </3> 



Name <INPUT TYPE-TEXT SIZE="50" NAME-"fullname" VALUE-" %name%"> 

<B>*</B> 

Street Address 1. . <INPUT TYPE-TEXT SIZE-"40" NAME-"addressl" VALUE= ff %addl% "> 
<B>*</B> 

Street Address 2.. <INPUT TYPE-TEXT SIZE="40" NAME- "address 2 " VALUE="%add2% "> 

City <INPUT TYPE-TEXT SIZE="40" NAME-" city" VALUE- "% ci t y% "> 

<B>*</B> 

State <INPUT TYPE-TEXT SIZE-"4" MAXLENGTH- " 2 " NAME-" state" 

VALUE-"%state%"> <B>*</B> 

ZIP/Postal Code... <INPUT TYPE=TEXT SIZE-"15" MAXLENGTH-" 12" NAME-" zip" 
VALUE-" % zip % "> <B>*</B> 

E-Mail Address <INPUT TYPE=TEXT SIZE="40" NAME="email" VALUE- " %emai 1% "> 

<B>*</B> 



<B>* All Fields required for Credit Card Validation</B> 



<IMG SRC-"master.gif" BORDER=0> <IMG SRC-"visa . gif " BORDER-0> 
Credit Card Number <INPUT TYPE-TEXT SIZE-"5" MAXLENGTH="4 " NAME-" car dnuml" 
VALUE-"%form(cardnuml) "> <INPUT TYPE— TEXT SIZE="5" MAXLENGTH= " 4 " NAME= " car dnum2 " 
VALUE-" % form ( cardnum2 ) "> <INPUT TYPE-TEXT SIZE="5 H MAXLENGTH="4" NAME-"cardnum3" 
VALUE="% form ( car dnum3 ) "> <INPUT TYPE-TEXT SIZE="5" MAXLENGTH-"4 " NAME="cardnum4 " 
VALUE-" % form ( cardnum4 ) "> <B>[XXXX XXXX XXXX XXXX]</B> 
Expiration Date... <INPUT TYPE-TEXT SIZE="15" NAME-"expdate" 
VALUE="%form(expdate) "> <B> [MM/YY] </B> 

Enter the Username of each additional group member below. 
</PRE> 

<B>Additional Users</BXP> 
%if (%gt (%users%, 1) , 

%set (count, 1) %set(loop, %users%) %set(loop, %isub ( %loop%, 1)) 
%while(%lte(%count%, %loop%) , 

<INPUT TYPS-TEXT SIZE-"30" MAXLENGTH- "25" NAME="user%count% " 
VALUE=\"%form(%expand(user%count%) ) \"> %if (%equal (%expand(%user%count%%) , 
"NO") , <FONT COLOR-#FF0000XB>[User Name NOT Found] </BX/FONT>) 
<BR> 

%set (count, %iadd(%count%, 1)) 

) 

<P> 



<INPUT 


TYPE 


=TEXT 


SIZE- 


"30" 


MAXLENGTH- 


"25" 


NAME= 


"userl"XBR> 


<INPUT 


TYPE 


-TEXT 


SIZE- 


"30" 


MAXLENGTH- 


"25" 


NAME- 


"user2"XBR> 


<INPUT 


TYPE 


-TEXT 


SIZE- 


"30" 


MAXLENGTH- 


"25" 


NAME- 


"user3"XBR> 


<INPUT 


TYPE 


-TEXT 


SIZE- 


"30" 


MAXLENGTH- 


"25" 


NAME- 


"user4"XBR> 


<INPUT 


TYPE 


-TEXT 


SIZE- 


"30" 


MAXLENGTH- 


"25" 


NAME- 


"user5 "XBR> 


<INPUT 


TYPE 


=TEXT 


SIZE- 


"30" 


MAXLENGTH- 


"25" 


NAME- 


"user6"XBR> 


<INPUT 


TYPE 


=TEXT 


SIZE- 


"30" 


MAXLENGTH— 


"25" 


NAME- 


"user7"XBR> 


<INPUT 


TYPE- 


=TSXT 


SIZE- 


"30" 


MAXLENGTH- 


"25" 


NAME- 


"user8"><BR> 


<INPUT 


TYPE : 


=TEXT 


SIZE- 


"30" 


MAXLENGTH- 


"25" 


NAME- 


"user9"XBR> 


< INPUT 


TYPE 


=TEXT 


SIZE- 


"30" 


MAXLENGTH- 


"25" 


NAME - 


"userl0"><BR> 


<INPUT 


TYPE-TEXT 


SIZE- 


"30" 


MAXLENGTH- 


"25" 


NAME- 


"userll"XBR> 


<INPUT 


TYPE : 


=TEXT 


SIZE- 


"30" 


MAXLENGTH- 


"25" 


NAME- 


"userl2"xBR> 


<INPUT 


TYPE-- 


=TEXT 


SIZE- 


"30" 


MAXLENGTH- 


"25" 


NAME- 


r, userl3"XBR> 



<INPUT TYPE-TEXT SIZE="30" MAXLENGTH="25 rf NAME="userl4 "><BR> 
<INPUT TYPE-TEXT SIZE-"30" MAXLENGTH-"25 " NAME- f! userl5 "><3R> 
<INPUT TYPE-TEXT SIZE="30" MAXLENGTH= "25" NAME="userl6"><BR> 
<INPUT TYPE-TEXT SIZE-"30" MAXLENGTH- "25" NAME-"userl7 "><BR> 
<INPCJT TYPE-TEXT SIZE="30" MAXLENGTH- "25" NAME="userl8 "><BR> 
<INPUT TYPE-TEXT SIZE="30" MAXLENGTH= "25" NAME="userl9"> 
<P> 
) 

%if (%gte(%users%, 10) , 

<B>Groups of 10 or more may choose their Pool Name</B><P> 

Pool Name... <INPUT TYPE-TEXT SIZE="15" MAXLENGTH- "10" NAME-"pool" 

VALUE-"%form(pool) "> 

<P> 

) 

<CENTER> 

<H3>Please be patient. Credit Card Validation may take up to a minute. </H3> 

<INPUT TYPE-SUBMIT VALUE- "Complete Sign-up"> <INPUT TYPE-RESET VALUE- "Reset ALL 

Fields"> 

</CENTER> 

</F0RM> 

) 

%def ine ( setmodif ied, 

1 %regopenkey(HKEY_LOCAL_MACHINE\\Software\\InternetFactory\\CBuilder, 
1 %regsetdwordvalue ( "LastMod", %time%) 

) 

) 

%define (checkother, 

%set (UserlD, %sql-quote ( %f orm (%expand (user%count% ) ) ) ) 

%set (sqlstmt, "SELECT UserlD, Password FROM Signup WHERE UserlD - %UserID%") 
%set (async-sql, T) 
%try ( 

%sql(IO Members, %sqlstmt% f 

%gset (pass%count%, %column (Password) ) 

%if (%equal (Inum-rows ( ) , 0) , 
%gset (user%count%, "NO") 
f 

%gset (user%count%, "YES" ) 

) 

) 

<FONT COLOR=FF0000>ERROR Connecting to Members Database<BR> 

Type: %exception-type% I %exception-msg%</FONT> 

Please contact <A 
HREF="mailto : webmaster@insideodds . com">webmaster@insideodds . com</A> 

immediately with this problem. <BR> Be sure to include the error message 
above . <P> 
) 

) 

%def ine (gocardin, 

%gset (input, lenumf orm ( ' %name%-%url-encode (%value%) 5c) ) 

%gset (order, %null%) 

%try( 

%exec (perl d: \\cbuilder\\htdocs\\odds\\signup\\cardin. cgi %input%) 

<FONT COLOR«FF0000>ERROR executing Credit Card Validation<BR> 
Type: %exception-type% | %exception-msg%</FONT> 



) 

%if (%equal (%order%, %null%) , 

%gset (date, % local t ime (yymindd) ) 
%gset (time, %localtime (hhmmss ) ) 
%gset (order, lO-%date%-%time% ) 

%csv-appendq(D:/cbuilder/data/odds/payment.txt, %order%, % f orm (userid) , 
%form(option) ) 

%set(count, 1) %set(loop, %users%) %set(loop, % r sub (% loop* , 1)) 
%while(%lte(%count% / %loop%), 

%csv-appendq(D: /cbuilder /data/odds /payment .txt, %order%, 
%form(%expand(user%count%) ) , %f orm (option) ) 

%set (count, %iadd(%count%, 1)) 

) 

%if (%equal(%return%, "TRUE"), 
%set (async-sql, T) 

%null (UPDATE Members User: %f orm (userid) <BR>) 

%set (sqlstmt, UPDATE Signup SET Transaction = '%order%'\, Service - 
' %f orm (option) ' WHERE UserlD - 1 %f orm(userid) ' ) 
%try( 

%sql(IO Members, %sqlstmt%, 
) 

<FONT COLOR=FF0000>ERROR Updating Members Database<BR> 

Type: %exception-type% i %exception-msg%</FONT> 

Please contact <A 
HREF-"mailto : webmaster@insideodds . com">webmaster6insideodds . com</A> 

immediately with this problem. <BR> Be sure to include the error message 
above .<P> 

%set (count, 1) %set(loop, %users%) %set(loop, %isub ( %loop% , 1) ) 

%while (%lte (%count%, %loop%) , 

%null(UPDATE Members User: %f orm (%expand (user%count% ) ) <BR>) 
%set(salstmt, UPDATE Signup SET Transaction - '%order%'\, Service = 
' %f orm (option) ' WHERE UserlD = r %f orm ( %expand (user%count% ) ) ? ) 
%try( 

%sql{10 Members, % sqlstmt %, 
) 

<FONT COLOR=FF0000>ERROR Updating Members Database<BR> 

Type: %exception-type% I % except ion-msg%</ FONT > 

Please contact <A 
HREF-"mailto : webmaster@insideodds . com">webmaster@insideodds . com</A> 

immediately with this problem. <BR> Be sure to include the error message 
above. <P> 
) 

%set (count, %iadd (%count% , 1)) 

) 

%if (%equal(%f orm (option) , "BOTH") , 

%set(showopt, "PICK POOLS ' 97 AND GAME DAY '97") 
%if (%not (%equal (%f orm (pool) , %null%) ) , 
%gset (pool, % form (pool) ) 

%gset(pool, %order%) 

%gset (options, "GameDay = 1, ProFootDB = 1, ColgFootDB = 1, ProFootPick = 
1, ColgFootPick = 1, PickPool = ! %pool% ! ") 



) 

%null (UPDATE Access User: %f orm (userid) <BR>) 

%set (sqlstmt, UPDATE Profile SET %options% WHERE UserlD - ■% form (userid) f ) 
%try( 

%sql(IO Members, %sqlstmt%, 
) 

<FONT COLOR=FF0000>ERROR Updating Member Profile Database<BR> 

Type: %exception-type% I %exception-msg%</FONT> 

Please contact <A 
HREF="mailto : webmaster@insideodds . com">webmaster@insideodds . com</A> 

immediately with this problem. <BR> Be sure to include the error message 
above. <P> 

%set (count, 1) %set(loop f %users%) %set(loop, %isub ( %loop% , 1)) 

%while (%lte (% count %, %loop%) , 

%null(UPDATE Access User: %f orm ( lexpand (user%count% ) ) <BR>) 
%set (sqlstmt, UPDATE Profile SET %options% WHERE UserlD - 
' %form(%expand(user%count%) ) 1 ) 
%try ( 

%sql(IO Members, %sqlstmt%, 
) 

<FONT COLOR=FF0000>ERROR Updating Member Profile Database<BR> 

Type: %exception-type% I %exception-msg%</FONT> 

Please contact <A 
HREF="mailto: webmaster@insideodds . com">webmaster@insideodds . com</A> 

immediately with this problem. <BR> Be sure to include the error message 
above. <P> 
) 

%set (count, %iadd (%count%, 1)) 

) 

%try( 

%set (CBPath, HKEY_LOCAL_MACHINE \\ SOFTWARE \\ Internet Fact oryWCBuilder) 
%set (RegPath, 80:205.130.24 9.193) 

%set (UserKey, %cbpath%\\HTTP\\Servers\\%RegPath%\\Users) 
%regcreatekey (%UserKey%, %regsetstringvalue (%form (userid) , 
%f orm(password) ) ) 

%set (UserKey, %cbpath%\\HTTP\\Servers\\%RegPath%\\Groups\\iomembers ) 
%regcreatekey (%UserKey%, %regsetstringvalue (%f orm (userid) , %null%) ) 

<FONT COLOR=FF0000>ERROR Adding Member to Access file<BR> 

Type: %exception-type% I %exception-msg%</FONT> 

Please contact <A 
HREF=="mailto:webmaster@insideodds.com rf >webmaster@insideodds .com</A> 

immediately with this problem. <BR> Be sure to include the error message 
above. <P> 

Let (count, 1) %set(loop, %users%) %set(loop, %isub (%loop%, 1)) 
%while (%lte (%count%, %loop%) , 
%try( 

%set (CBPath, HKEY_LOCAL_MACHINE\ \SOFTWARE\\Internet Factory WCBuilder) 
%set (RegPath, 80:205.130.249.193) 

%set (UserKey, %cbpath%\\HTTP\\Servers\\%RegPath%\\Users) 

%regcreatekey (%UserKey%, %regsetstringvalue (%form(%expand(user%count%) ) , 
%expand (%pass%count%%) ) ) 

%set (UserKey, %cbpath%\\HTTP\\Servers\\%RegPath%\\Groups\\iomembers ) 

1* 



%regcreatekey (%UserKey%, %regsetstringvalue ( %f orm ( %expand (user%count% } ) , 

%null%) ) 

<FONT COLOR=FF0000>ERROR Adding Member to Access file<BR> 

Type: %exception-type% I %exception-msg%</FONT> 

Please contact <A 
HREF="mailto : webmaster@insideodds . com">webmaster(§insideodds . com</A> 

immediately with this problem. <BR> Be sure to include the error message 
above. <P> 
) 

%set (count, %iadd(%count%, 1)) 

) 

%sermodified( ) 

<H2>0rder Number %order% Accepted. </H2> 

%if (%not(%equal(%f orm (pool), %null%)), <H2>Pick Pool %form(pool) 

Created. </H2>) u ^ o 

The following User Names have been activated for access to <B>*showopt *</B> . 

<P> 

If any are unable to access the <BXI>Members Only</I></B> area 
please E-mail us at <A HREF="mailto :membership\@insideodds . com?Subject=Group 
Access ">Inside Odds Membership</A>. 

Be sure to include the User Name\, Password\, and Order Number m the 

message. 
<H3> 

<FONT COLOR=#008000>Group Leader</FONTXBR> 

User Name: % f orm (userid) <BR> 

</H3> 

<P> 

Iset (count, 1) %set(loop, %users%) %set(loop, %isub (%loop%, 1) ) 
%while(%lte(%count%, %loop%) , 
<H3> 

User Name: %f orm(%expand (user%count% ) ) <BR> 
</H3> 

%set(count, %iadd (% count % , 1)) 

) 

<P> 

%text-append(D:/cbuilder/data/odds/payment.log / %input%%cr%) 
<H2>An error has occurred during Credit Card Validation</H2> 
<H3>The transaction for Order Number %order% was recorded</H3> 
Please E-mail us at <A HREF="mailto : member ship\@insideodds . com?Subject=Group 
Sign-up">Inside Odds Member ship</A> . 

Be sure to include the User Names\, Passwords\, and Order Number in the 

message. 

) 

%sql-flushconnection(IO Members) 

) 

%def ine (notf ound, 

<H2XF0NT COLOR=#FF0000>USER RECORD NOT FOUND ! </F0NTX/H2> 

Either your User Name does not exist or the Password you entered is incorrect. 
<UL> 

<LIXA HREF="group.hmx?NEW">Re-enter your User Name and Password</A><P> 
<B>0R</BXP> 

<LIXA HREF="request .hmx">Goto Request a User Name and Password Form</A> 
</UL> 



1^ 



P i ri ii f i i 



<p> 

%sql-flushconnection (10 Members) 



%set (Password, %sql- 



%gset (pwd, %null%) 
%gset (expdate, %null%) 



Idefine (check, 

%set (User ID, %sql-quote (%f orm (userid) ) ) 
quote (%f orm (password) ) ) 

%set (sqlstmt, "SELECT * FROM Signup WHERE UserlD - %UserID% AND Password 
%Password%") 

%set (async-sql, T) 
%gset(recs, 0) 
%gset(uid, %null%) 
%gset (name, %null%) 
%gset (addl, %null%) 
%gset (state, %null%) 
%try( 

%sql(I0 Members, %sqlstmt%, 
%gset(recs, %iadd(%recs%, 1) 
%gset (uid, %column (UserlD) ) 
%gset (name, %column (Name) ) 

%gset(addl, % column (Addressl) ) %gset(add2, %column (Address2 ) ) 
%gset (city, %column (City) ) %gset (state, %coiumn (State) ) 
%gset (zip, % column (Zip) ) %gset (email, %column (EMail) ) 



!>gset (add2, 
%gset (zip, 



%null%) 
lnull%) 



%gset (city, %null%) 
%gset (email, %null%) 



%gset (pwd, %column (Password) ) 



%if (%equal (%num^rows ( ; 
%notfound( ) 



%if (%equal (%form( option) , "BOTH") , 

%set (showopt, "PICK POOLS '97 AND GAME DAY '97"] 

) 

%case ( 

%not (%equal ( %f orm (userl9) , %null% 

%gset (users , 20) , 
%not (%equal (%f orm (userl8 ) , %null% 

%gset (users, 19) , 
%not (%equal ( %f orm (userl7 ) , %null% 

%gset (users, 18 ) , 
%not (%equal ( %form (userl6) , %null% 

%gset (users, 17 ) , 
%not (%equal(%form(userl5) , %null% 

%gset (users, 16) , 
%not (%equal ( %f orm (userl4 ) , %null% 

%gset (users, 15), 
%not (%equal ( %f orm (userl3) , %null% 

%gset (users, 14 ) , 
%not(%equal(%form(userl2) , %null% 

%gset (users, 13) , 
%not (%equal ( %f orm (userll ) , %null% 

Igset (users, 12) , 
%not (%equal (%form(userlO) , %null% 

%gset (users, 11) , 
%not (%equal ( %f orm (user9) , %null%) 

%gset (users, 10), 
%not (%equal (%form(user8) , %null%) 

%gset (users, 9) , 
%not (%equal (%form(user7) , %null%) 

%gset (users , 8 ) , 
%not (%equal ( %f orm (user 6) , %null%) 



^set(per, "30") 



%gset (users, 7 ) , 
%not (%equal (%f orm (user 5) , %null%) ) , 

%gset (users , 6) , 
%not (%equal ( %f orm (user4 ) , %null%) ) , 

%gset (users, 5) , 
%not (%equal (%f orm(user3) , %null%) ) , 

%gset (users, 4), 
%not (%equal (%form(user2) , %null%) ) , 

%gset (users, 3) , 
%not (%equal ( %f orm (userl ) , %null%) ) , 

%gset (users, 2) , 
%equal (%f orm (userl) , %null%) , 

%gset (users, 1) 

) 

%set(count, 1) %set(loop, %users%) %set (loop, %isub (%loop%, 1)) 
%gset ( totalusers, %users%) 
%while (%lte(%count%, %loop%) , 
%checkother ( ) 

%if (%equal ( lexpand ( %user%count%% ) , "NO") , 
%gset (usererr, "YES") 

%gset (totalusers, %isub ( %totalusers%, 1) ) 

) 

%set (count, % i add (% count % , 1)) 

) 

%if (%equal (%userrerr%, "YES"), <B>One or more User Names NOT 
Found! </BXHR>) 

%if (%equal (%form (userl) , %null%) , 

<B>You must enter at least one ADDITIONAL User Name ! </B><HR> 
%gset (totalusers, 1) 

) 

%if (%not (%equal (%users%, %null%) ) , 

%gset (price, %imult (%per%, %totalusers% ) ) 

r 

Igset (price, "30") 

) 

%update_display ( ) 

) 

) 

f 

<FONT COLOR=FF0000>ERROR Connecting to Members Database<BR> 

Type: %exception-type% ! %exception-msg%</FONT> 

Please contact <A 
HREF="mailto : webmaster@insideodds . com">webmaster@insideodds . com</A> 

immediately with this problem. <BR> Be sure to include the error message 
above. <P> 
) 

) 

%def ine (validate, 

%if (%equal ( %f orm (fullname) , %null%) , 

<FONT COLOR=#FF0000XB>Narae is a Required field! </B></FONTXBR> 
%gset (errors, "YES") 

) 

%if (%equal (%form(addressl) , %nuli%) , 

<FONT COLOR=#FF0000XB>Street Address is a Required field ! </BX/FONTXBR> 
%gset (errors, "YES") 

) 

%if (%equal(%f orm (city) , lnull%J , 



<FONT COLOR=#FF0000XB>City is a Required field !</B></FONT><BR> 
%gset (errors, "YES") 

) 

%if (%equal (%form (state) , %null%) , 

<FONT COLOR=#FF0000xB>State is a Required field! </BX/FONTXBR> 
Igset (errors, "YES") 

) 

%if (%equal (%form(zip) , %null%) , 

<FONT COLOR«#FF0000xB>ZIP/Postal Code is a Required field! </FONT></B><BR> 
%gset (errors, "YES") 

) 

%if (%equal (%form (email) , %null%) , 

<FONT COLOR=#FF0000><B>E-Mail Address is a Required field! </BX/FONTXBR> 
%gset (errors, "YES") 

) 

%gset (CardNo, %verify- 
card ( % form ( cardnuml ) % form ( cardnum2 ) % form ( cardnum3 ) % f orm ( cardnum4 ) ) ) 
%if (%or (%equal (%CardNo%, %null%) , %equal (%CardNo% , "unknown") ) , 

<FONT COLOR=#FF0000XB>Invalid credit card number !</Bx/FONTXBR> 

Igset (errors, "YES") 

) 

%if (lequal ( %f orm(expdate) , %null%) , 

<FONT COLOR-* FF0000xB>Expiration Date is a Required field! </BX/FONTXBR> 
%gset (errors, "YES") 

) 

%if (%equal ( %f orm (user 1 ) , %null%) , 

<FONT C0LOR=#FF0000xB>You must enter at least one ADDITIONAL User 
Name ! </Bx/FONTXBR> 

%gset (errors, "YES") 

) 

%if (%equal{%form(option) , "BOTH") , 

%set (showopt, "PICK POOLS '97 AND GAME DAY '97") %set (per, "30") 



hcase ( 

%not (%equal ( %f orm (user 19) , %null%) 

%gset (users, 20), 
%not (%equal(%form(userl8) , %null%) 

%gset (users, 19) , 
%not (%equal (%form (userl7 ) , %null%) 

%gset (users , 18 ) , 
%not (%equal ( %f orm (userl6) , %null%) 

%gset (users, 17) , 
%not (%equal (%f orm (userlS) , %null%) 

%gset (users, 16), 
%not (%equal (%f orm (user 14 ) , %null%) 

%gset (users, 15), 
%not (%equal (%form(userl3) , %null%) 

%gset (users, 14 ) , 
%not (%equal ( %f orm (userl2) , %null%) 

%gset (users, 13) , 
%not (%equal (%form (userll ) , %null%) 

%gset (users, 12), 
%not (%equal ( %f orm (userlO ) , %null%) 

%gset (users, 11), 
%not (%equal ( %f orm (user 9 ) , %null%) ) , 

%gset (users, 10), 



41- 



%not (%equal ( %f orm (user8 ) , %null%) ) 

%gset (users, 9) , 
%not (%equal { % f orm (user7 ) , %null%) ) 

%gset (users, 8), 
%not (%equal (%f orm (user6) , %null%) ) 

%gset (users, 7), 
%not (%equal ( %f orm (user5 ) , %null%) ) 

%gset (users, 6) , 
%not (%equal (%form(user4 ) , %null%) ) 

%gset (users, 5), 
%not (%equal (%form(user3) , %null%) ) 

%gset (users, 4 ) , 
%not(%equal(%form(user2) , %null%) ) 

%gset (users, 3), 
%not (%equal (%form (userl) , %null%) ) 

%gset (users, 2) , 
%equal (%f orm (userl ) , %null%) , 

%gset (users, 1) 



%users%) %set(loop, %isub (%loop% , 1) ) 



1) ) 



) 

%set (count, 1) %set(loop, 
%gset (totalusers, %users%) 
%while(%lte(%count%, %loop%), 
%checkother ( ) 

%if ( %equal ( %expand ( %user%count%% ) , "NO" ) 
%gset (usererr, "YES") 

%gset (totalusers, %isub (%totalusers% , 
) 

%set (count, %iadd (%count% , 1)) 

%if(%equal(%userrerr%, "YES"), <B>One or more User Names NOT Found ! </B><HR» 
%if (%equal(%form(userl) , %null%), 

<B>You must enter at least one ADDITIONAL User Name ! </BXHR> 

%gset (totalusers, 1) 

) 

%if (%not (%equal (%users%, %null%) ) , 

%gset (price, %imult (%per%, %totalusers% ) ) 



%gset (price, "30") 



) 



%if (%or(%equal(%errors%, "YES"), %equal (%usererr%, "YES")), 
%gset(uid, %f orm (userid) ) %gset (pwd, %f orm (password) ) 
%gset (name, %f orm ( f ullname) ) 

%gset(addl, %f orm (addressl ) ) %gset(add2, %form (address2 ) ) 
%gset(city, %form(city)) %gset (state, %form(state) ) 
%gset(zip, % form (zip)) %gset (email, %f orm (email) ) 
%update_display () 



) 



%gocardin( ) 



lease ( 

%equal (%f orm (process ) , %null%) , 
%equal (%f orm (process) , "CHECK") , 
%equal ( % form (process ) , "VALIDATE" ) , 

) 



%showform() 
%check ( ) , 
%validate{) 



<BRXBR> 



1 



<CENTER> 



<A HREF= T 7index.html"><IMG SRC="/home.gif " BORDER= "0" WIDTH= M 83" 
HEI GHT= " 4 5 " >< / AXBR> 

| <A HREF="/ index . html ">Home Page</A> | <A HREF="/signup/ ">Sign-up</A> | 
</CENTER> 

<HR> 
<P> 

<F0NT SIZE="2"> 

Please note this web site and the information contained herein is for 
entertainment purposes only. Inside Odds is not responsible for any 
associated errors or omissions. Any questions or comments? Drop us a line at 
<A HREF="mailto: webmaster\@insideodds . com">webmaster\@insideodds . com</A> 
</FONT> 
</P> 

</BODY> 
</HTML> 

PPPPPP request . hmx 

<HTML> 
<HEAD> 

<BASE HREF="http: //www . insideodds . com/signup/"> 
<!— BASE HREF="http://localhost /signup/" --> 

<META NAME- " keywords " CONTENT=" Sports, Football, NCAA, NFL, Basketball, NBA, 
Odds, Spreads, Line, Picks, Scores, Statistics, Win, Loss"> 
<TITLE>Inside Odds - Request User Name and Password</TITLE> 
</HEAD> 

<BODY BACKGROUND="back. gif " TEXT=#000000 BGC0L0R=#FFFFFF LINK=#0000FF 
VLINK=#0O00FF ALINK=#FFO000> 

<!-- Inside Odds Home Page Revision 3 — > 
<! — Author: Bret Strachan — > 

<! — Web Design: Andrew Ventura/Bret Strachan — > 
<! — Programming: Dave Anderson — > 

%null (%enumform( ' %name%-%value%<BR>%crlf % } ) 

%def ine (showform, 

<H2xlMG SRC="/fball.gif "> Request a User Name and Password <IMG 
SRC= " / f bal 1 . gi f "><HR></H2> 

<FONT SIZE=+l>There is <B>NO CHARGE</B> for making this request ! </FONTXBR> 
<FONT COLOR=#FFOOOO>Your User Name and Password will ONLY be activated 
once you complete the Sign-up process . </FONT> 

Everyone who wishes to subscribe to one or more of our Membership services 
must complete this process. Once you have a User Name and Password you will 
be able to Sign-up for our <FONT SIZE=+l><B>Pick Pool</Bx/FONT> and/or 
<FONT SIZE=+lxB>Game Day< /B>< / FONT> services\, as well as any future 
services we may offer. 



<F0NT COLOR=#008000 SIZE=+l><B>Follow these simple instructions : </B></FONT> 
<P> 



<P> 




n mv miiiiiniii'i' 



<B>1.</B> Enter all the requested information below. Choose your preferred Us 
Name 

and Password which should be at least 4 characters long. If the User Name is 
already in use you will receive the message <FONT COLOR-#FF0000>Please choose 
different User Name 
and Password</FONT>. 
<P> 

<B>2.</B> Once you have completed 

this process\, simply click the "Sign-up" button on our home to sign-up for 

our Game Day and/or Pick Pool services. 

<P> 

<FORM METHOD-POST ACT ION- " request . hmx"> 



<INPUT TYPE-HIDDEN NAME-" system" VALUE="IO"> 
<INPUT TYPE-HIDDEN NAME= "process " VALUE-" CHECK "> 
<PRE> 

User Name <INPUT TYPE-TEXT SIZE-"30" MAXLENGTH- "25" NAME-"userid"> 

Password <INPUT TYPE=TEXT SIZE="15" MAXLENGTH= " 10" NAME="pas sword" > 

<B> [Remember : Your Password will be case-sensitive during login] </B> 

Name <INPUT TYPE-TEXT SIZE="40" NAME-" f ul lname " > <B>*</B> 

Street Address <INPUT TYPE-TEXT SIZE-"40" NAME="addressl"> <B>*</B> 

<INPUT TYPE-TEXT SIZE-MO" NAME-"address2"> 

City <INPUT TYPE-TEXT SIZE="40" NAME="city"> <B>*</B> 

State <INPUT TYPE=TEXT SIZE-"4" MAXLENGTH-"2 " NAME-"state"> 

<B>*</B> 

ZIP/Postal Code... <INPUT TYPE-TEXT SIZE="15" MAXLENGTH- "12" NAME-"zip"> 
<B>*</B> 

E-Mail Address <INPUT TYPE=TEXT SIZE-"4Q" NAME-"email"> <B>*</B> 



[will be used to send verification of sign-up] 

<B>* These fields are required for Sign-up. 

Your mailing address is for our records only. 

This information will NOT be sold to any mailing lists. </B> 

</PRE> 

<CENTER>< INPUT TYPE-SUBMIT VALUE-" Submit Inf ormation"> <INPUT TYPE-RESET 

VALUE-"Clear ALL Fields "></CENTER> 

</FORM> 

) 

%def ine (update_display, 

<F0RM METHOD- POST ACTION-"request . hmx"> 

<INPUT TYPE-HIDDEN NAME="system" VALUE-" IO"> 

<INPUT TYPE-HIDDEN NAME- "process" VALUE- "VAL I DATE "> 

%if (%or (%equal (%found% / "YES") , %equal (%f orm (userid) , %null%) ) , 

<HR> 

<PRE> 

User Name <INPUT TYPE-TEXT SIZE-"30" MAXLENGTH-"25" NAME-"userid"> 

Password <INPUT TYPE=TEXT SIZE="15" MAXLENGTH="10" NAME- "pas sword" > 

<B> [Remember : Your Password will be case-sensitive during login] </B> 
r 

<HR> 

<INPUT TYPE-HIDDEN NAME-"userid" VALUE="%f orm (userid) "> 
<INPUT TYPE=HIDDEN NAME= "pas sword" VALUE="%f orm (password) "> 
<PRE> 

User Name If orm (userid) 




Password 

) 



%form(password) 



Name <INPUT TYPE=TEXT SIZE="40" NAME="f ullname" 

VALUE="%form(fullname) "> <B>*</B> 

Street Address <INPUT TYPE=TEXT SIZE="40" NAME=" address 1" 

VALUE=" % form ( address 1 ) "> <B>*</B> 

<INPUT TYPE-TEXT SIZE="40" NAME= "address 2" 
VALUE="%form(address2) "> 

City <INPUT TYPE=TEXT SIZE="40" NAME="city" VALUE="%f orm (city) "> 

<B>*</B> 

State <INPUT TYPE=TEXT SIZE="4 n MAXLENGTH=" 2 " NAME="state" 

VALUE=" % form ( state ) "> <B>*</B> 

ZIP/Postal Code... <INPUT TYPE=TEXT SIZE="15" MAXLENGTH= "12" NAME="zip" 
VALUE= "% form ( zip ) "> <B>*</B> 

E-Mail Address <INPUT TYPE-TEXT SIZE="40" NAME="email" VALUE="%f orm (email) "> 

<B>*</B> 

[will be used to send verification of sign-up] 

<B>* These fields are required for Sign-up. 

Your mailing address is for our records only. 

This information will NOT be sold to any mailing lists. </B> 

</PRE> 

<P> 

<CENTER>< INPUT TYPE=SUBMIT VALUE=" Submit Inf ormation"> <INPUT TYPE^RESET 

VALUE="Clear ALL Fields "></CENTER> 

</FORM> 

) 

%def ine (check_user, 

ftif (%not (%equal ( %f orm (userid) , %null%) ) , 

%set (sqlstmt, "SELECT UserlD FROM Profile WHERE UserlD - T %form (userid) ' " } 

%set (async-sql, T) %gset(recs, 0) 

%try( 

%sql(IO Members, %sqlstmt%, 
%gset(recs, %iadd (%recs% , 1)) 

r t 

%if (%equal (%num-rows ( ) , 0) , 
%gset (found, "NO") 

%gset{ found, "YES") 

) 

) 

<FONT COLOR=FF0000>ERROR Connecting to Members Database<BR> 

Type: %exception-type% | %exception~msg%</FONT> 

Please contact <A 
HREF="mailto : webmaster@insideodds . com">webmaster@insideodds . com</A> 

immediately with this problem. <BR> Be sure to include the error message 
above . <P> 
) 

) 

) 

%def ine (submit_user, 

%gset(Time, %localtime (hh:mm: ss) ) 
%gset (Date, %localtime (yy/mm/dd) ) 
%set (trans, "SIGNUP" ) 

11 



%csv-appendq (D: /cbuilder/data/odds/signup. txt, %Date%, %Time%, %f orm (userid) , 
%f orm (password) , %form(fullname) , % form (address 1) , %form (address2) , %form(city) , 
% form (state) , I form (zip), % form ( email ) , Itransl) 

%gset (sqlstmtl, "INSERT INTO Signup VALUES \( , %Date%' / '%Time% f , 
1 %f orm (userid) 7 , 1 %f orm (password) ' , 1 %form(fullname) ' , ' %f orm (addressl) 1 , 
f %form(address2) 1 , 1 % form (city) ' , ' %f orm (state) 1 , 1 % form (zip) ' r ' %f orm (email) ' , 
'%trans%', 1 ? \) ") 

%set (async-sql, T) 

%try ( 

%sql(IO Members, %sqlstmtl%, 
) 

t 

<FONT COLOR=FF0000>ERROR Adding to Members Database<BR> 

Type : %exception-type% 1 %exception-msg%</FONTxBR> 

%sqlstmtl%<BR> 

Please contact <A 
HREF="mailto: webmaster @insideodds . com">webmaster@insideodds . com</A> 

immediately with this problem. <BR> Be sure to include the error message 
above . <P> 
) 

%gset (sqlstmt2 / "INSERT INTO Profile VALUES \ { 1 %f orm (userid) * , 0, 0, 0, 0, 0, 
0, 0, 0, 0, 1 HOLDING 1 , ,f , 0\>") 
%set (async-sql, T) 
%try ( 

ftsqKIO Members, Isqlstmt2%, 

) 

<FONT COLOR=FF0000>ERROR Adding to Member Profile Database<BR> 

Type: %exception~type% \ %exception-msg%</FONTXBR> 

%sqlstmt2%<BR> 

Please contact <A 
HREF="mailto: webmaster@insideodds . com">webmaster@insideodds . com</A> 

immediately with this problem, <BR> Be sure to include the error message 
above. <P> 
) 

<H2>User Name and Password accepted. </H2> 
<H3> 

User Name: %f orm (userid) <BR> 
Password: %f orm (password) 
</H3> 

Now you are ready to Sign-up for any of our Member services. 

Simply click the "Sign Up Now" button on our home page and follow the 

instructions. Once you have paid for a service you User Name and 

Password will be activated within minutes. 

<P> 

<H2XA HREF="/index.html">Return to Home Page</A></H2> 
<H2XA HREF=" index. html ">Choose a Sign-up 0ption</A></H2> 
%sql-f lushconnection (IO Members) 

) 

%def ine (validate, 
%check_user ( ) 

%if (% equal (%found%, "NO"), 

%if (%or (%equal (%f orm(fullname) , %null%) , %equal ( %f orm (addressl ) , %null%) , 
%equal (%f orm (city) , %null%) , %equal (%f orm (state) , %null%) , %equal (%f orm ( zip) , 
%null%), %equal (%f orm (email ) , %null%)), 



%if (%equal (%form (full name) , %null%) , <FONT COLOR=#FF0000XB>Name is a 
Required field! </B></ FONT ><BR>) 

%if (%equal ( %f orm (addressl) , %null%) f <FONT COLOR=#FF0000XB>Street Address 
is a Required field !</Bx/FONTXBR>) 

%if (%equal (%f orm (city) , %null%), <FONT COLOR=#FF0000xB>City is a Required 
field !</BX/FONTXBR>) 

%if (%equal (%f orm (state) , %null%), <FONT COLOR=#FF0000XB>State is a 
Required field! </Bx/FONTXBR>) 

%if (%equal (%form(zip) , %null%) , <FONT COLOR=#FFOOOOxB>ZIP/Postal Code is 
a Required field! </Bx/FONTXBR>) 

%if (%equal (%f orm (email) , %null%), <FONT COLOR=#FFG000xB>E-Mail Address is 
a Required field ! </BX/FONTXBR>) 

%update_display ( ) 

%submit_user ( ) 

) 

%if (%equal ( %f orm (userid) , %null%), 

<FONT COLOR==#FF0000xB>rou did not select a User Name ! </BX/FONTXBR> 

<FONT COLOR=#FF0000XB>The User Name <FONT COLOR=#000000 
SIZE=+l>%form (userid) </FONT> is already in use by a another 
member !</BX/FONTXBR> 

<FONT COLOR=#FF0000><B>Please choose a different User Name and 
Password. </BX/FONTXBR> 
) 

%if (%equal(%f orm (password) , %null%), <FONT COLOR=#FF0000xB>You did not 
select a Password !</B></FONT><BR>) 
%update_display ( ) 

) 

) 

lease { 

%equal ( %f orm (process ) , %null%) , %showform( ) , 

%equal (If orm (process) , "CHECK" ) , %validate() 
%equal (%f orm (process ) , "VALIDATE"), %validate ( ) 

) 

<BR><BR> 
<CENTER> 

<A HREF=" /index . html "XIMG SRC="/home . gif " BORDER= "0" WIDTH="83" 
HEI GHT=" 45" ></AXBR> 

I <A HREF=" /index. html" >Home Page</A> | <A HREF="/signup/">Sign-up</A> I 
</CENTER> 

<HR> 
<P> 

<FONT SIZE="2"> 

Please note this web site and the information contained herein is for 
entertainment purposes only. Inside Odds is not responsible for any 
associated errors or omissions. Any questions or comments? Drop us a line at 
<A HREF="mailto : webmaster\@insideodds . com">webmaster\@insideodds . com</A> 
</F0NT> 
</P> 

</BODY> 
</HTML> 



PPPPPP single. hmx 



<HTML> 
<HEAD> 

<BASE HREF="hrtp; //www . insideodds . com/signup/ "> 
<!— BASE HREF="http://localhost/signup/" — > 

<META NAME=" keywords 11 CONTENT="Sports , Football, NCAA, NFL, Basketball, NBA, 
Odds, Spreads, Line, Picks, Scores, Statistics, Win, Loss"> 
<TITLE>Inside Odds - Individual Sign-up</TITLE> 
</HEAD> 

<BODY B ACKGROUND=" back. gif " TEXT=#000000 BGCOLOR=#FFFFFF LINK=#0000FF 
VLINK=#0000FF ALINK=#FF0000> 

<! — Inside Odds Home Page Revision 3 — > 

<! — Author: Bret Strachan — > 
b,i <l — Web Design: Andrew Ventura/Bret Strachan — > 
U<. <! — Programming: Dave Anderson — > 

ff %null (%enumform{ ' %name%=%value%<BR>%crlf % ) ) 
^ %def ine ( showf orm, 

H : <H2XIMG SRC= f 7 fball.gif "> Individual Sign-up <IMG SRC="/fball . gif "><HRX/H2> 

m 

kQ <FORM METHOD-POST ACT I ON=" single . hmx"> 

pi" <INPOT TYPE=HIDDEN NAME=" system" VALUE="IO"> 

Q <INPUT TYPE-HIDDEN NAME= "process " VALUE=" CHECK" > 

<PRE> 

K User Name... <INPUT TYPE=TEXT SIZE="30" MAXLENGTH~"25" NAME="userid"> 
>| Password <INPUT TYPE=TEXT SIZE="15" MAXLENGTH="10" NAME= "pass word "> 

Im <B>Membership Options :</B> 

<INPUT TYPE=RADIO NAME=\"option\ " VALUE="PP">ONLY PICK POOLS '97 <FONT 
COLOR=#008000xB>[$25. 00] </B></FONT> 

<INPUT TYPE=RADIO NAME=\"option\ " VALUE= " GD " >ONL Y GAME DAY '97 <FONT 
COLOR=#008000XB> [$20 . 00 ] </Bx/FONT> 

<INPUT TYPE=RADIO NAME=\ "option\ " VALUE="BOTH" CHECKED>BOTH PICK POOLS '97 5c 
GAME DAY '97 <FONT COLOR=#008000XB> [$45 . 00 ] </BX/FONT> 

<B>Note: </B> If you have already signed-up for one service and 

would like to add another <B>DO NOT</B> select the <B>BOTH</B> option. 

</PRE> 

<CENTER><INPUT TYPE=SUBMIT VALUE="Submit Inf ormation"> <INPUT TYPE=RESET 
VALUE="Clear ALL Fields "></CENTER> 
</FORM> 

) 

%def ine (notf ound, 

<H2XFONT COLOR-#FF0000>USER RECORD NOT FOUND !< /FONT X/H2> 

Either your User Name does not exist or the Password you entered is 

incorrect . <BR> 
<UL> 

<LIXA HREF= fT single.hmx?NEW fT >Re-enter your User Name and Password</A><P> 
<B>OR</BXP> 

<LI><A HREF="request .hmx">Goto Request a User Name and Password Form</A> 
</UL> 



<p> 

%sql-flushconnection(IO Members) 

) 

%def ine (verify, 
%case { 

%equal (If orm (option) , "BOTH" ) , 

%set (showopt, "BOTH PICK POOLS 1 97 & GAME DAY '91") %set (price, "45"), 
%equal (%form (option) , "GD") , 

%set (showopt, "ONLY GAME DAY '97") %set(price, "20"), 
%equal (%form (option) , "PP") , 

% set (showopt, "ONLY PICK POOLS '97") %set (price, "25") 

) 

<CENTER> 

<H3>Your Credit Card will be billed <FONT COLOR-#008000>$%price% . 00</FONT> by 
Inside Odds<BR> 

for access to <FONT COLOR=#FF0000>%showopt%</FONT> . </H3> 

</CENTER> 

<HR> 

<FORM METHOD=POST ACT ION=" single . hmx"> 
<INPUT TYPE-HIDDEN NAME=" system" VALUE="IO"> 
<INPUT TYPE-HIDDEN NAME="process " VALUE- "VALI DATE "> 
<INPUT TYPE=HIDDEN NAME="userid" VALUE-\"%uid%\"> 
<INPUT TYPE-HIDDEN NAME-"pas sword" VALUE=\"%pass%\"> 
<INPUT TYPE-HIDDEN NAME- " opt i on " VALUE=\ "%form (option) \"> 
< INPUT TYPE=HIDDEN NAME- "price" VALUE-X "%price%\ "> 

<PRE> 

User Name %uid% 

<B>Please verify the following information : </B> 

Name <INPUT TYPE-TEXT SIZE-"40" NAME="f ullname " VALUE- "% name % "> 

<B>*</B> 

Street Address 1.. <INPUT TYPE-TEXT SIZE-"40" NAME-"addressl " VALU£="%addl% "> 
<B>*</B> 

Street Address 2,. <INPUT TYPE-TEXT SIZE="40" NAME="address2" VALUE- " % add2 % " > 

City <INPUT TYPE-TEXT SIZE="40" NAME-" city" VALUE- "% city% "> 

<B>*</B> 

State <INPUT TYPE-TEXT SIZE="4" MAXLENGTH-"2" NAME="state" 

VALUE-"%state%"> <B>*</B> 

ZIP/Postal Code.,. <INPUT TYPE-TEXT SIZE="15" MAXLENGTH="12" NAME-" zip" 
VALUE-" % zip% "> <B>*</B> 

E-Mail Address.... <INPUT TYPE-TEXT SIZE="40" NAME- "email" VALUE="%email% "> 
<B>*</B> 

<B>* These fields required for Credit Card Validation</B> 

<IMG SRC="master.gif " BORDER=0> <IMG SRC="visa . gif " BORDER=0> 
Credit Card Number <INPUT TYPE-TEXT SIZE="5" MAXLENGTH-"4" NAME-" car dnuml"> 
<INPUT TYPE=TEXT SIZE="5" MAXLENGTH- " 4 " NAME- " car dnum2 "> <INPUT TYPE-TEXT 
SIZE="5" MAXLENGTH="4" NAME-"cardnum3"> <INPUT TYPE-TEXT SIZE-"5" MAXLENGTH- " 4 " 
NAME="cardnum4"> <B>[XXXX XXXX XXXX XXXX]</B> 

Expiration Date... <INPUT TYPE=TEXT SIZE-"15" NAME-"expdate" VALUE-"lexpdate% "> 
<B>[MM/YY]</B> 



</PRE> 



<CENTER> 



<H3>Please be patient. Credit Card Validation may take up to a minute , </H3> 

<INPUT TYPE=SUBMIT VALUE=" Complete Sign-up"> <INPUT TYPE=RESET VALUE=" Reset ALL 

Fields "> 

</CENTER> 

</FORM> 

) 

Idefine (checkuser, 

%set (sqlstmt, "SELECT * FROM Signup WHERE UserlD = ' %f orm (userid) T AND 
Password = 1 % form (password) ' ") 

%set (async-sql, T) %gset(recs, 0) 
%gset(uid, %null%) %gset(pass, %null%) 
%gset (name, %null%) %gset (expdate, %null%) 

%gset(addl, %null%) %gset(add2, %null%) %gset(city, %null%) 
%gset (state, %null%) %gset(zip, %null%) %gset (email, %null%) 
%try{ 

%sql(IO Members, %sqlstmt%, 

%gset (uid, %column (UserlD) ) %gset (pass, %column ( Password) ) 
%gset (name, % column (Name) ) 

%gset (addl, %column (Addressl) ) %gset (add2, % column (Address2 ) ) 
%gset (city, %column (City) ) %gset (state, %column (State) ) 
%gset (zip, %column (Zip) ) %gset (email, %column (EMail) ) 



%verify ( ) 

) 

) 

r 

<FONT COLOR=FF0000>ERROR Connecting to Members Database<BR> 

Type: %exception-type% | %exception-msg%</FONT> 

Please contact <A 
HREF="mailto : webmaster@insideodds . com rf >webmaster@insideodds . com</A> 

immediately with this problem. <BR> Be sure to include the error message 
above. <P> 
) 

) 

%def ine (setmodif ied, 

f %regopenkey (HKEY_LOCAL_MACHINE\\Software\\InternetFactory\\CBuilder, 
' %regsetdwordvalue ( "LastMod" , %time% ) 

) 

) 

%def ine (gocardin, 

%gset (input, %enumform( f %name%=%url-encode (%value%) &) ) 

%gset (order, %null%) 

%try( 

%exec (perl d: \\cbuilder\\htdocs\\odds\\signup\\cardin. cgi % input %) 

<F0NT COLOR=FF0000>ERROR executing Credit Card Validation<BR> 
Type: %exception-type% | %exception-msg%</FONT> 



%if (%equal (%num-rows ( ) , 0) , 
%notfound ( ) 



%if (%equal (%order%, %null%) , 

%gset (date, %localtime (yymmdd) ) 
%gset (time, %localtime (hhmmss) ) 




Igset (order, 10-%date%-%time%) 

) 

%csv-appendq (D: /cbuilder/data/odds/payment . txt , %order%, %f orm (userid) , 
%f orm (option) ) 

%if (%equal(%return%, "TRUE" ) , 

%set (sqlstmt, UPDATE Signup SET Transaction - '%order% f \, Service = 
' % form (opt ion) ' WHERE UserlD = 1 %f orm (userid) ' ) 
%set (async-sql, T) 
*try( 

%sql(IO Members, %sqlstmt%, 
) 

r 

<FONT COLOR=FF0000>ERROR Updating Members Database<BR> 

Type: %exception-type% I %exception-msg%</FONT> 

Please contact <A 
HREF="mailto:webmaster@insideodds . com">webmaster@insideodds . com</A> 

immediately with this problem. <BR> Be sure to include the error message 
above . <P> 
) 

%case ( 

%equal (%f orm (option) , "BOTH") , %set (options , "GameDay = 1, ProFoot DB = 
1, ColgFootDB = 1\, ProHoopDB = 1, ColgHoopDB = 1, ProFootPick = 1, ColgFootPick 
- 1"), 

%equal (%f orm (option) , "GD"), %set (options, "GameDay = 1, ProFootDB = 1, 
ColgFootDB = 1\, ProHoopDB = 1, ColgHoopDB = 1"), 

%equal (%f orm (option) , "PP") , %set (options , "ProFootPick = 1, 
ColgFootPick =1") 
) 

%set (sqlstmt, UPDATE Profile SET %options% WHERE UserlD = ' %f orm (userid) ' ) 
%try ( 

%sql(IO Members, %sqlstmt%, 
) 

<FONT COLOR=FF0000>ERROR Updating Member Profile Database<3R> 

Type: %exception-type% | %exception-msg%</FONT> 

Please contact <A 
HREF="mailto : webmaster@insideodds . com">webmaster@insideodds . com</A> 

immediately with this problem. <BR> Be sure to include the error message 
above. <P> 
) 

%try( 

%set (CBPath,HKEY_LOCAL_MACHIN£\\SOFTWARE\\internetFactory\\CBuilder) 
%set (RegPath, 80 : 205 . 130 . 24 9 . 193) 

%set (UserKey, %cbpath%\\HTTP\\Servers\\%RegPath%\\Users) 
%regcreatekey (%UserKey%, Iregsetstringvalue (%f orm (userid) , 
%f orm (password) ) ) 

%set (UserKey, %cbpath%\\HTTP\\Servers\\%RegPath%\\Groups\\iomembers) 
%regcreatekey (%UserKey%, %regsetstringvalue (If orm (userid) , %null%) ) 

<F0NT COLOR=FF0000>ERROR Adding Member to Access file<BR> 

Type: %exception-type% 1 %exception-rasg%</FONT> 

Please contact <A 
HREF="mailto : webmasterGinsideodds . com">webmaster@insideodds . com</A> 

immediately with this problem. <BR> Be sure to include the error message 
above , <P> 
) 

%setmodif ied ( ) 

%< 



<H2>0rder Number %order% Accepted. </H2> 

Your User Name has been added to the Member Access file. 

If you are unable to access the <BXI>Members Only</lx/B> area 

please E-mail us at <A 
HREF="mailto :membership\@insideodds . com?Subi ect=Individual Access "Mnside Odds 
Membership</A> . 

Be sure to include your User Name\, Password\, and Order Number in the 
message. 

<H3> 

User Name: %f orm (userid) <BR> 
Password: %f orm (password) 
</H3> 

%text-append(D: /cbuilder/data/odds /payment . log, %input%%cr%) 
<H2>An error has occurred during Credit Card Validation</H2> 
<H3>The transaction for Order Number %order% was recorded</H3> 
Please E-mail us at <A 

HREF="mailto:membership\@insideodds . com?Subj ect=Individual Sign-up">Inside Odds 

Membership</A> . 

Be sure to include your User Name\, Password\, and Order Number in the 
message . 
) 

%sql-f lushconnection (10 Members) 

) 

Idef ine (validate, 
%gset (errors, "NO" ) 

%if (%equal ( %f orm ( full name) , %null%) , 

<FONT COLOR=#FF0000><B>Name is a Required field ! </B></F0NT><BR> 
%gset (errors, "YES" ) 

) 

%if (%equal ( %f orm (addressl) , %null%) , 

<F0NT COLOR=#FF0000><B>Street Address is a Required field! </BX/FONTXBR> 
%gset (errors, "YES") 

) 

%if (%equal(%f orm (city) , %null%), 

<F0NT COLOR-#FF0000XB>City is a Required field K/Bx/FONTXBR> 
%gset (errors, "YES") 

) 

%if (%equal (%f orm (state) , %null%) , 

<F0NT COLOR=#FF0000xB>State is a Required field > </B></FONT><BR> 
%gset (errors, "YES" ) 

) 

%if (%equal (%form(zip) , %null%) , 

<F0NT COLOR=#FF0000><B>ZIP/Postal Code is a Required field! </Bx/F0NT><BR> 
%gset (errors, "YES") 

) 

%if (%equal ( %f orm (email ) , %null%) , 

<F0NT COLOR=#FF0000XB>E-Mail Address is a Required field ! </BX/FONTXBR> 
%gset (errors, "YES") 

) 

%gset (CardNo, %verify- 
card(%form(cardnuml) %f orm (cardnum2 ) %f orm(cardnum3) %f orm (cardnum4 ) ) ) 
%if (%or (%equal (%CardNo%, %null%), %equal (%CardNo% , "unknown")), 

<F0NT COLOR=#FF0000XB>Invalid credit card number ! </Bx/FONTxBR> 

%gset (errors, "YES") 



%if {%equal ( %f orra (expdate) , %null%) , 

<FONT COLOR=#FFOOOOXB>Expiration Date is a Required field !</BX/FONTXBR> 
%gset (errors, "YES") 

) 

%if (%equal (%errors%, "YES") , 
<HR> 

%gset (uid, %f orm (userid) ) %gset (pass, %f orm (password) ) 
%gset (name, %f orm (f ullname) ) 

%gset(addl, %form (addressl) ) %gset(add2, %f orm (address2) ) 
%gset (city, %form(city) ) %gset (state, % form (state) ) 
%gset(zip, % form ( zip ) ) %gset (email, % form ( email ) ) 
%gset (expdate, %f orm (expdate) ) 
%verif y ( ) 

f 

%gocardin ( ) 

) 

) 

%case ( 

%equal (%form (process ) , 
%equal (%f orm (process) , 
%equal (%f orm (process) , 

) 

<BRXBR> 
<CENTER> 

<A HREF="/index.html"XlMG SRC="/home . gif " BORDER="0" WIDTH="83" 
HEI GHT= " 4 5 " X / AXBR> 

| <A HREF- Vindex. html ">Home Page</A> I <A HREF-" /signup/ ">Sign-up</A> | 
</CENTER> 

<HR> 
<P> 

<FONT SIZE="2"> 

Please note this web site and the information contained herein is for 
entertainment purposes only. Inside Odds is not responsible for any 
associated errors or omissions. Any questions or comments? Drop us a line at 
<A HREF="maiito : webrrtaster\@ ins ideodds . com">webmaster\@insideodds . com</A> 
</FONT> 
</P> 

</BODY> 
</HTML> 



PPPPPP show.hmx 
%def ine (show, 

%gset (iffile, D : /CBuilder/htdocs /odds /members /% form (file) ) 
%gset (found, %exists (%if file%) ) 
%if (Snot (%equal(%found%, %null%) ) , 
%expand(%include (%iffile%) ) 

<HTML> 
<HEAD> 

<BASE HREF="http : //www . insideodds . com/members/ "> 

n 



%null%) , 
"CHECK") , 
"VALIDATE") , 



%showf orm( ) , 
%checkuser ( ) , 
%validate {) 



<i— BASE HREF="http://localhost/ rr — > 

<META NAME=" keywords" CONTENT="Sports\, FootballX, NCAA\, NFL\ , Basketball\, 
NBA\, Odds\, Spreads\, Line\, Picks\, Scores\, Statistics\, Win\, Loss M > 
<TITLE>Inside Odds - Pick Pool f 97</TITLE> 
</HEAD> 

<BODY BACKGROUND="back.gif" TEXT-#000000 BGCOLOR=# FFFFFF LINK=40000FF 
VLINK-#0000FF ALINK=#FF0000> 

<! — Inside Odds Home Page Revision 3 — > 
<! — Author: Bret Strachan — > 

<! — Web Design: Andrew Ventura/Bret Strachan — > 
<! — Programming: Dave Anderson — > 

<H2>The file you requested has not yet been generated. </H2> 

<H3>If you believe you have received this message in error please<BR> 

contact system administration at <A 

HREF="mailto : webmaster\@insideodds . com">webmaster\@insideodds . com</A></H3> 
<HR> 

<H3> 

<A HREF="profoot-demo-picks .html fr >View a sample Pick Pool Posting</A><BR> 

<A HREF="profoot-demo-results .html">View a sample Pick Pool Results Posting</A> 

</H3> 



<H3>NFL Weekend Posting Schedule</H3> 
<BLOCKQUOTE> 

Saturday games @ 1:00 pm EST<BR> 
Sunday early games @ 1:30 pm EST<BR> 
Sunday late game @ 8:30 pm EST<BR> 
Monday Night game @ 9:30 pm EST 
</BL0CKQU0TE> 

<H3>NCAA Saturday Posting Schedule</H3> 
<BLOCKQUOTE> 

Games between 11:30 am - 4:00 pm EST @ 4:30 pm EST<BR> 
Games between 4:00 pm - 1:30 am EST @ 9:30 pm EST 
</BLOCKQUOTE> 
<P> 

<H3>Pick Pool Results Posting</H3> 
<BL0CKQU0TE> 

The results of each weeks picks will be compiled after Monday Nights 
NFL game and then posted on Tuesday. Each results posting will remain 
on the site until it is replaced with the next posting. 
</BLOCKQUOTE> 
<P> 



<A HREF="/index.html"xlMG SRC="/home . gif " B0RDER= "0" WIDTH="83" 
HEIGHT-"45"x/A><BR> 

| <A HREF- "/index. html ">Home Page</A> | <A HREF= "index. html" >Members Only</A> | 
</CENTER> 



<P> 
<HR> 



<BRXBR> 
<CENTER> 




<HR> 
<P> 

<FONT SIZE="2"> 

Please note this web site and the information contained herein is for 
entertainment purposes only. Inside Odds is not responsible for any 
associated errors or omissions. Any questions or comments? Drop us a line at 
<A HREF="mailto : webmaster@insideodds . com">webmaster@insideodds . com</A> 
</FONT> 
</P> 

</BODY> 
</HTML> 

) 

) ■ 

%gset (inc, D: /CBuilder/htdocs/odds/members/pickpool . inc) 
%expand (%include (%inc%) ) 



timing. inc 



%gset (proweek, "'97 POST SEASON" ) 
%gset (proresult, " ' 97 POST SEASON" ) 
%gset (colgweek, " 1 97 SEASON") 
%gset (colgresult, " r 97 SEASON") 

%def ine (setDT, 

%gset (Month, %localtime (mmm) ) %gset (Day, %localtime (d) ) 
%gset(Time, %localtime (h:mm) ) 

%gset(Hour, %gettoken (%Time%, 0)) %gset (Minute, %gettoken (%Time%, 

1) ) 

%gset (AmPm, %localtime (AA) ) 

%gset (showtime, %Hour% : %Minute% %AmPm%) 

%if (%and(%equal(%AmPm%, "PM") , %lt (%Hour%, 12) ) , %gset (Hour, %iadd(%Hour% 
12))) 

%if (%and(%equal (%AmPm%, "AM"), %equal (%Hour%, 12) ) , %gset(Hour, 0)) 

) 

%define (checkone, 
%gset (show, "NO") 

%gset (GMonth, %gettoken (%column (Date) , " ", 0)) 
%gset(GDay, %gettoken (%column (Date) , " " , 1)) 
%gset(GHour, %gettoken ( %column (Time ) , ":", 0)) 
%gset (GMinute, %gettoken (%column (Time) , ":", 1)) 
%null (Today: %Month% i>Day% | %Hour% : %Minute% %AmPm%<BR> 

%column(GameID) GameDay: %GMonth% %GDay% | %GHour% : %GMinute% %GAmPm%<BR>) 
%if (% equal (%Month%, %GMonth%), 
%null (MONTH EQUAL:) 
%if (%equal (%Day%, %GDay%) , 
%null (DAY EQUAL : ) 
%if (%lt (%Hour%, %GHour%), 

%gset(show, "YES") %null(HOUR OK<P>) 

t 

%if (lequal (%Hour%, %GHour%), 
% null (HOUR EQUAL :) 
%if (%lte(%Minute%, %GMinute%), 

%gset(show, "YES") %null(PASS - MINUTES OK<P>) 

%gset(show, "NO") %null(FAIL - MINUTES<P>) 

) 

) 

) 

% null (DAY NOT EQUAL:) 
lif (%lt (%Day%, %GDay%) , 

%gset(show, "YES") %null(PASS - DATE<P>) 

r 

%gset(show, "NO") %null{FAIL - DATE<P>) 

) 

) 

%if (%gte(%Day%, %GDay%), 

%gset(show, "YES") %null(PASS - DATE<P>) 

t 

%gset(show, "NO") %null(FAIL - DATE<P>) 

) 



1& 



) 

%if (%not (%equal(%showall%, "TRUE") ) , 

%if (%equal (% column ( Spread) , 200.0), %gset(show, "NO") ) 

) 

) 

%def ine (checktwo, 

%gset (showl, %null%) %gset (show2, %null%) 
%gset (GMonthl, Igettoken ( %rdate%, " ", 0)) 
%gset(GDayl, %gettoken (%rdate% , " ", 1)) 
%gset (GHourl, %gettoken ( %rtime% / 0)) 
%gset (GMinutel, %gettoken { %rtime% , ":", 1)) 

%gset (GMonth2 f %gettoken (%sdate%, " ", 0)) 
%gset (GDay2, %gettoken ( %sdate% , " 1)) 
%gset (GHour2, %gettoken (%stime% , ":", 0)) 
%gset (GAmPm2, %gettoken ( %stime% , " ", 1) ) 
%gset (GMinute2, %gettoken (%stime%, 1}) 

%null (Today: %Month% %Day% | %Hour% : %Minute% %AmPm%<BR> 

%column(GameID) GameDay: %GMonthl% %GDayl% I %GHourl% : %GMinutel% %GAmPml%<BR>) 
%if (%equal (%Month%, %GMonthl%) , 
%if (%equal (%Day%, %GDayl%), 
% null (DAY EQUAL:) 
%if (%lt(%Hour%, %GHourl%) , 

%gset(showl, "YES") %null(HOUR OK<P>) 

%if (%equal(%Hour%, %GHourl%), 
%null(H0UR EQUAL :) 
%if (%lte(%Minute%, %GMinutel%) , 

Igset (showl, "YES") %null(PASS - MINUTES 0K<P>) 

r 

%gset(showl, "NO" ) %null (FAIL - MINUTES<P>) 

) 

) 

) 

t 

%if (%lt (%Day%, %GDayl%), 

%gset (showl, "YES" ) %null(PASS - DATE<P>) 

%gset (showl, "NO") %null(FAIL - DATE<P>) 

) 

) 

%if (%gte(%Day%, %GDayl%) , 

%gset (showl, "YES") %null(PASS - DATE<P>) 

%gset (showl, "NO") %null(FAIL - DATE<P>) 

) 

) 



%null (Today: %Month% %Day% | %Hour% : %Minute% %AmPm%<BR> 

% column (Game ID) GameDay: %GMonth2% %GDay2% | %GHour2% : %GMinute2% %GAmPm2%<BR>) 
%if (%equal (%Month%, %GMonth2%), 
%if (%equal (%Day%, %GDay2%) , 
% null (DAY EQUAL:) 
%if (%lt (%Hour%, %GHour2%) , 

%gset(show2, "YES") %null (HOUR OK<P>) 



%if (%equal(%Hour%, %GHour2%), 
%null (HOUR EQUAL : ) 
%if (%lte(%Minute%, %GMinute2%) , 

%gset(show2, "YES" ) %null(PASS - MINUTES OK<P>) 

%gset(show2, "NO" ) %null(FAIL - MINUTES<P» 



%if (%lt(%Day%, %GDay2%), 

%gset(show2, "YES") %null(PASS - DATE<P>) 

%gset<show2, "NO") %null(FAIL - DATE<P>) 



%if (%gte(%Day%, %GDay2%), 

%gset(show, "YES") %null(PASS - DATE<P» 

%gset(show, "NO") %null(FAIL - DATE<P» 




